home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2005 Utilities / CHIP Utilities 2005.7z / CHIP Utilities 2005.iso / images / arachne.igz / arachne.img / LEVEL3 / NWLAN.CAB / Bin / Nwlan.bat < prev    next >
DOS Batch File  |  2005-01-16  |  135KB  |  3,604 lines
  1. @if "%debug%"=="" echo off
  2. if "%1"==":" if not "%2"=="" goto %2
  3. :: Nwlan Begin ::
  4.  
  5.  
  6. echo.
  7. echo NWLAN: Starting NWLAN 3.22 Copyright (C) 2002-2005 Erwin Veermans
  8. echo.
  9.  
  10.  
  11. if not exist %ramdrv%\bin\lmod.com %0 : _error missing lmod.com (check utils.%arcext%)
  12. if not exist %ramdrv%\bin\tfind.com %0 : _error missing tfind.com (check utils.%arcext%)
  13. if not exist %ramdrv%\bin\wbat.com %0 : _error missing wbat.com (check utils.%arcext%)
  14. if not exist %ramdrv%\bin\w.bat %0 : _error missing w.bat (check utils.%arcext%)
  15. if not exist %ramdrv%\bin\edit.com %0 : _error missing edit.com (check utils.%arcext%)
  16. if not exist %ramdrv%\bin\linex.com %0 : _error missing linex.com (check utilz.%arcext%)
  17.  
  18. :_start
  19. if not exist %ramdrv%\lan\nul md %ramdrv%\lan >nul
  20. if exist %tmp%\_nwlanx.bat del %tmp%\_nwlanx.bat >nul
  21. if exist %tmp%\_nwlanz.bat del %tmp%\_nwlanz.bat >nul
  22. if not exist %ramdrv%\bin\repath.bat goto _nrp11
  23. type %ramdrv%\bin\repath.bat >%ramdrv%\lan\repath.bat
  24. type %ramdrv%\bin\repath.bat >%ramdrv%\repath.bat
  25. :_nrp11
  26.  
  27. :_cleaning
  28. set >%tmp%\_nwlan.bak
  29. tfind /f1,2 "P_" <%tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  30. tfind /f1,2 "W_" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  31. tfind /f1,2 "G_" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  32. lmod /L* /B= set [$1]=<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  33. call %tmp%\_nwlan.bat
  34.  
  35. if not exist %ramdrv%\etc\global.set goto _noglob
  36. xgrep -sy "^[:s]*@*[:s]*s?e?t?[:s]*[GP]_.+=" %ramdrv%\etc\global.set >%tmp%\_nwlan.bak
  37. if errorlevel 1 goto _noglob
  38. xgrep -sy "^[:s]*@*[:s]*set[:s]+" %tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  39. xgrep -syv "^[:s]*@*[:s]*set[:s]+" %tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  40. if errorlevel 1 goto _runset
  41. lmod /L* set []<%tmp%\_nwlan.tmp >>%tmp%\_nwlan.bat
  42. :_runset
  43. call %tmp%\_nwlan.bat
  44. :_noglob
  45.  
  46. if "%g_timeout%"=="" set g_timeout=10
  47.  
  48. if exist netq goto _config2
  49. call loaded.bat vlm
  50. if errorlevel 1 goto _config2
  51. call loaded.bat lsl
  52. if errorlevel 1 goto _config2
  53. call loaded.bat nios
  54. if errorlevel 1 goto _config2
  55. call loaded.bat client32
  56. if errorlevel 1 goto _config2
  57.  
  58. if "%1"=="-c" goto _config1
  59. if "%1"=="/c" goto _config1
  60. if "%1"=="-C" goto _config1
  61. if "%1"=="/C" goto _config1
  62. if "%1"=="-h" goto _usage
  63. if "%1"=="/h" goto _usage
  64. if "%1"=="-H" goto _usage
  65. if "%1"=="/H" goto _usage
  66. if "%1"=="-?" goto _usage
  67. if "%1"=="/?" goto _usage
  68.  
  69. if "%g_nocfg%"=="1" goto _nocfg
  70. wbat box @%0:w_cfg #1,%g_timeout%
  71. if errorlevel 3 goto _end
  72. if errorlevel 2 goto _config1
  73. :_nocfg
  74.  
  75. if not exist %srcdrv%\lib\joinlib.%arcext% goto _nojoin
  76. if exist %ramdrv%\lan\lsl.com goto _nojoin
  77. if exist %ramdrv%\lan\nios.exe goto _nojoin
  78. echo NWLAN: Prepare all Client(s) & Protocol(s)
  79. call unpack.bat %srcdrv%\lib\joinlib.%arcext%
  80. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\joinlib.%arcext%'
  81. :_nojoin
  82.  
  83. goto _nopktjoin
  84. if not exist %srcdrv%\lib\nwpkt.%arcext% goto _nopktjoin
  85. if exist %ramdrv%\lan\odipkt.com goto _nopktjoin
  86. echo NWLAN: Prepare Clients
  87. call unpack.bat %srcdrv%\lib\nwpkt.%arcext%
  88. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwpkt.%arcext%'
  89. :_nopktjoin
  90.  
  91. if not exist %ramdrv%\etc\profile\*.pro goto _nopro
  92.  
  93. if not "%g_fixpro%"=="1" goto _selprof
  94. echo NWLAN: Using fixed profile "%g_profile%"
  95. if "%g_profile%"=="" goto _selprof
  96. if not exist %ramdrv%\etc\profile\%g_profile%.pro goto _fnpro
  97.  
  98. if not "%g_bypro%"=="1" goto _bypro1
  99. echo NWLAN: You are forced to use fixed profile "%g_profile%"
  100. goto _nchkpro1
  101. :_bypro1
  102. wbat box @%0:w_bypro #1,%g_timeout%
  103. if errorlevel 100 goto _nopro
  104. if errorlevel 3 goto _end
  105. if errorlevel 2 goto _nopro
  106. :_nchkpro1
  107. goto _prorun2
  108.  
  109. :_fnpro
  110. echo NWLAN: Profile not found "%g_profile%" (%srcdrv%\etc\profile\%g_profile%.pro does not exist)
  111. :_selprof
  112. echo :_profile " Select profile " >%tmp%\_nwlan.tmp
  113. if exist %tmp%\_nwlan2.tmp del %tmp%\_nwlan2.tmp >nul
  114. if not exist %ramdrv%\etc\profile\*.pro goto _npro2
  115. for %%i in (%ramdrv%\etc\profile\*.pro) do echo %%i >>%tmp%\_nwlan2.tmp
  116. lmod /L* /B\. [$4] <%tmp%\_nwlan2.tmp >%tmp%\_nwlan.bak
  117. lmod /L* [~32][$1][~32][+]<%tmp%\_nwlan.bak | tfind " " >%tmp%\_nwlan2.tmp
  118. if not "%g_profile%"=="" if exist %ramdrv%\etc\profile\%g_profile%.pro goto _pr1st
  119. type %tmp%\_nwlan2.tmp >%tmp%\_nwlan.bak
  120. goto _prlst
  121. :_pr1st
  122. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  123. if "%1"=="" goto _prar
  124. if not exist %ramdrv%\etc\profile\%1.pro goto _prar
  125. tfind " %1 " <%tmp%\_nwlan2.tmp >>%tmp%\_nwlan.bak
  126. tfind /v " %1 " <%tmp%\_nwlan2.tmp >>%tmp%\_nwlan.bak
  127. goto _prlst
  128. :_prar
  129. tfind " %g_profile% " <%tmp%\_nwlan2.tmp >>%tmp%\_nwlan.bak
  130. tfind /v " %g_profile% " <%tmp%\_nwlan2.tmp >>%tmp%\_nwlan.bak
  131. :_prlst
  132. lmod set _nwlan=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  133. set _nwlan=
  134. call %tmp%\_nwlan.bat
  135. if "%_nwlan%"=="" goto _prlopx
  136. linex 1 <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  137. :_prdrop
  138. set p_prot=
  139. linex 2- <%tmp%\_nwlan.bak >%tmp%\_nwlan2.tmp
  140. type %tmp%\_nwlan2.tmp >%tmp%\_nwlan.bak
  141. goto _prlst
  142. :_prlopx
  143. if exist %tmp%\_nwlan2.tmp del %tmp%\_nwlan2.tmp >nul
  144. :_npro2
  145.  
  146. lmod /L3 set wbat=[$1]<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  147. set wbat=
  148. call %tmp%\_nwlan.bat
  149. if not "%wbat%"=="" goto _proflist
  150. lmod /L2 set wbat=[$1]<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  151. call %tmp%\_nwlan.bat
  152. set g_profile=%wbat%
  153. echo NWLAN: Only one profile found (%g_profile%), no need for user to select...
  154.  
  155. :_bypass
  156. if not "%g_bypro%"=="1" goto _bypro
  157. echo NWLAN: You cannot bypass profile "%g_profile%"
  158. goto _nchkpro
  159. :_bypro
  160. wbat box @%0:w_bypro #1,%g_timeout%
  161. if errorlevel 100 goto _nopro
  162. if errorlevel 3 goto _end
  163. if errorlevel 2 goto _nopro
  164. :_nchkpro
  165. goto _prorun2
  166.  
  167. :_proflist
  168. tfind " %g_profile% " <%tmp%\_nwlan.tmp >nul
  169. if errorlevel 1 goto _prls1
  170. call w.bat list @%tmp%\_nwlan.tmp:_profile #1,%g_timeout%
  171. goto _prls2
  172. :_prls1
  173. call w.bat list @%tmp%\_nwlan.tmp:_profile
  174. :_prls2
  175. if errorlevel 100 goto _nopro
  176. set g_profile=%wbat%
  177. :_prorun2
  178. set p_clnt=
  179. xgrep -sy "^[:s]*@*[:s]*s?e?t?[:s]*.+=" <%ramdrv%\etc\profile\%g_profile%.pro >%tmp%\_nwlan.bak
  180. if errorlevel 1 goto _nopro
  181. xgrep -sy "^[:s]*@*[:s]*set[:s]+" %tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  182. xgrep -syv "^[:s]*@*[:s]*set[:s]+" %tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  183. if errorlevel 1 goto _runprof
  184. lmod /L* set []<%tmp%\_nwlan.tmp >>%tmp%\_nwlan.bat
  185. :_runprof
  186. echo NWLAN: Parsing profile "%g_profile%"
  187. call %tmp%\_nwlan.bat
  188. :_nopro
  189.  
  190. set ipaddr=
  191. set ipaddr8=
  192. if "%p_timeout%"=="" set p_timeout=10
  193. if "%p_dns1%"=="" set p_dns1=%p_dns%
  194. set p_dns=
  195. if "%p_dhcp%"=="" set p_dhcp=1
  196. if "%p_topo%"=="" set p_topo=ether
  197. if "%p_ndsbind%"=="" set p_ndsbind=NDS BIND
  198. if not "%p_tree%"=="" goto _envdef
  199. if not "%p_server%"=="" goto _envdef
  200. if "%p_tree%"=="" set p_tree=My-Tree
  201. if "%p_context%"=="" set p_context=MyUnit.MyOrg
  202. if "%p_drive%"=="" set p_drive=f
  203. :_envdef
  204. for %%i in (ipx Ipx iPx ipX IPx IpX iPX IPX) do if "%p_prot%"=="%%i" set p_prot=ipx
  205. for %%i in (tcp Tcp tCp tcP TCp TcP tCP TCP) do if "%p_prot%"=="%%i" set p_prot=tcp
  206. for %%i in (ipx Ipx iPx ipX IPx IpX iPX IPX) do if "%p_prot2%"=="%%i" set p_prot2=ipx
  207.  
  208. :_odibox
  209. set wrb=
  210. if "%p_clnt%"=="32" set wrb=1
  211. if "%p_clnt%"=="16" set wrb=2
  212. set wcb1=
  213. set wcb2=
  214. if "%p_clnt%"=="32" if "%p_prot%"=="ipx" set wcb1=1
  215. if "%p_prot%"=="tcp" if "%p_prot2%"=="ipx" set wcb1=1
  216. if "%p_prot%"=="tcp" set wcb2=1
  217.  
  218.  
  219.  
  220.  
  221.  
  222. set w_ipx16=3
  223. set w_ipx32=3
  224. set w_tcp32=3
  225.  
  226. if not exist %ramdrv%\lan\vlm.exe if not exist %srcdrv%\lib\nwodi16.%arcext% set w_ipx16=2
  227. if not exist %ramdrv%\lan\ipxodi.com if not exist %srcdrv%\lib\nwipx16.%arcext% set w_ipx16=1
  228. if not exist %srcdrv%\lib\odi16\*.%arcext% set w_ipx16=
  229. if not exist %ramdrv%\lan\lsl.com if not exist %srcdrv%\lib\nw1616.%arcext% set w_ipx16=
  230. if not exist %ramdrv%\lan\odipkt.com if not exist %srcdrv%\lib\nwpkt.%arcext% goto _q16p
  231. set w_ipx16=%w_ipx16%1
  232. :_q16p
  233. if "%w_ipx16%"=="1" set w_ipx16=
  234.  
  235. if not exist %ramdrv%\lan\client32.nlm if not exist %srcdrv%\lib\nw32clnt.%arcext% set w_ipx32=2
  236. if not exist %ramdrv%\lan\client32.nlm if not exist %srcdrv%\lib\nw32clnt.%arcext% set w_tcp32=2
  237. if not exist %ramdrv%\lan\ipx.nlm if not exist %srcdrv%\lib\nwipx32.%arcext% set w_ipx32=1
  238. if not exist %ramdrv%\lan\tcpip.nlm if not exist %srcdrv%\lib\nwtcp32.%arcext% set w_tcp32=1
  239. if not exist %ramdrv%\lan\nios.exe if not exist %srcdrv%\lib\nwodi32.%arcext% set w_ipx32=
  240. if not exist %ramdrv%\lan\nios.exe if not exist %srcdrv%\lib\nwodi32.%arcext% set w_tcp32=
  241. if not exist %srcdrv%\lib\odi16\*.%arcext% if not exist %srcdrv%\lib\odi32\*.%arcext% set w_ipx32=
  242. if not exist %srcdrv%\lib\odi16\*.%arcext% if not exist %srcdrv%\lib\odi32\*.%arcext% set w_tcp32=
  243. if not exist %ramdrv%\lan\odipkt.com if not exist %srcdrv%\lib\nwpkt.%arcext% goto _q32p
  244. if not exist %ramdrv%\lan\lsl.com if not exist %srcdrv%\lib\nw1616.%arcext% goto _q32p
  245. set w_ipx32=%w_ipx32%1
  246. :_q32p
  247. if "%w_ipx32%"=="1" set w_ipx32=
  248.  
  249.  
  250. goto _q32p1
  251. if not exist %srcdrv%\lib\odi16\*.%arcext% set w_ipx32=
  252. if not exist %ramdrv%\lan\n16odi.com if not exist %srcdrv%\lib\nw1632.%arcext% set w_ipx32=
  253. if not exist %ramdrv%\lan\lsl.com if not exist %srcdrv%\lib\nw1616.%arcext% set w_ipx32=
  254. if not exist %ramdrv%\lan\odipkt.com if not exist %srcdrv%\lib\nwpkt.%arcext% set w_ipx32=
  255.  
  256. if not exist %srcdrv%\lib\odi32\*.%arcext% set w_ipx32=
  257. if not exist %ramdrv%\lan\cmsm.nlm if not exist %srcdrv%\lib\nw3232.%arcext% set w_ipx32=
  258. if not exist %ramdrv%\lan\lsl.com if not exist %srcdrv%\lib\nw1616.%arcext% set w_ipx32=
  259. if not exist %ramdrv%\lan\odipkt.com if not exist %srcdrv%\lib\nwpkt.%arcext% set w_ipx32=
  260. if not exist %ramdrv%\lan\pdosmlid.nlm if not exist %srcdrv%\lib\nw32pkt.%arcext% set w_ipx32=
  261. :_q32p1
  262.  
  263. if "%w_ipx16%"=="" if "%w_ipx32%"=="" if "%w_tcp32%"=="" %0 : _error No NetWare Client found
  264.  
  265. echo :w_odi " Select Client & Protocol " [x]>%tmp%\_nwlan.tmp
  266. echo            (~press any key~: #? sec.)>>%tmp%\_nwlan.tmp
  267. echo. >>%tmp%\_nwlan.tmp
  268.  
  269. if not "%w_ipx32%"=="" goto _dr32
  270. if not "%w_tcp32%"=="" goto _dr32
  271. if "%wrb%"=="1" set wrb=
  272. set wcb1=
  273. set wcb2=
  274. echo ( ) NetWare 32 bit Client (NLM) >>%tmp%\_nwlan.tmp
  275. echo     [[ ] IPX >>%tmp%\_nwlan.tmp
  276. echo     [[ ] IP >>%tmp%\_nwlan.tmp
  277. goto _ndr32
  278. :_dr32
  279. if not "%w_ipx16%"=="" goto _dr32x
  280. set wrb=1
  281. echo (*) NetWare 32 bit Client (NLM) >>%tmp%\_nwlan.tmp
  282. goto _ndr32x
  283. :_dr32x
  284. if "%wrb%"=="" set wrb=1
  285. echo [.] NetWare 32 bit Client (NLM) >>%tmp%\_nwlan.tmp
  286. :_ndr32x
  287. if not "%w_ipx32%"=="" goto _pri32
  288. set wcb1=
  289. echo     [[ ] IPX >>%tmp%\_nwlan.tmp
  290. goto _npri32
  291. :_pri32
  292. if not "%w_tcp32%"=="" goto _pri32x
  293. set wcb1=1
  294. echo     [[x] IPX >>%tmp%\_nwlan.tmp
  295. goto _npri32x
  296. :_pri32x
  297. echo     (select your protocol)>>%tmp%\_nwlan.tmp
  298. echo     [!] IPX >>%tmp%\_nwlan.tmp
  299. :_npri32x
  300. :_npri32
  301. if not "%w_tcp32%"=="" goto _prt32
  302. set wcb2=
  303. echo     [[ ] IP >>%tmp%\_nwlan.tmp
  304. goto _nprt32
  305. :_prt32
  306. if not "%w_ipx32%"=="" goto _prt32x
  307. set wcb2=1
  308. echo     [[x] IP >>%tmp%\_nwlan.tmp
  309. goto _nprt32x
  310. :_prt32x
  311. echo     [!] IP >>%tmp%\_nwlan.tmp
  312. if "%wcb1%"=="1" goto _nprt32x
  313. if "%wcb2%"=="1" goto _nprt32x
  314. set wcb1=1
  315. set wcb2=1
  316. :_nprt32x
  317. :_nprt32
  318. :_ndr32
  319.  
  320. echo. >>%tmp%\_nwlan.tmp
  321.  
  322. if not "%w_ipx16%"=="" goto _dr16
  323. if "%wrb%"=="2" set wrb=
  324. echo ( ) NetWare 16 bit Client (VLM) >>%tmp%\_nwlan.tmp
  325. echo     [[ ] IPX >>%tmp%\_nwlan.tmp
  326. goto _ndr16
  327. :_dr16
  328. if not "%w_ipx32%"=="" goto _dr16x
  329. if not "%w_tcp32%"=="" goto _dr16x
  330. set wrb=2
  331. echo (*) NetWare 16 bit Client (VLM) >>%tmp%\_nwlan.tmp
  332. goto _ndr16x
  333. :_dr16x
  334. if "%wrb%"=="" set wrb=1
  335. echo [.] NetWare 16 bit Client (VLM) >>%tmp%\_nwlan.tmp
  336. :_ndr16x
  337. echo     [[x] IPX >>%tmp%\_nwlan.tmp
  338. :_ndr16
  339.  
  340. echo. >>%tmp%\_nwlan.tmp
  341. echo (only components included on this >>%tmp%\_nwlan.tmp
  342. echo  disk are available for selection) >>%tmp%\_nwlan.tmp
  343. echo. >>%tmp%\_nwlan.tmp
  344. echo      [ OK ] [ Abort ] [? Back ] >>%tmp%\_nwlan.tmp
  345.  
  346. set w_ok=0
  347. if not "%w_ipx16%"=="" set w_ok=1
  348. if not "%w_ipx32%"=="" set w_ok=1
  349. if not "%w_tcp32%"=="" set w_ok=1
  350. if not "%w_ipx32%"=="" if not "%w_tcp32%"=="" set w_ok=3
  351. if not "%w_ipx16%"=="" if not "%w_ipx32%"=="" set w_ok=3
  352. if not "%w_ipx16%"=="" if not "%w_tcp32%"=="" set w_ok=3
  353. if not "%w_ipx16%"=="" if not "%w_ipx32%"=="" if not "%w_tcp32%"=="" set w_ok=5
  354. if "%p_clntwin%"=="1" goto _odi3er
  355. call w.bat box @%tmp%\_nwlan.tmp:w_odi #%w_ok%,%p_timeout%
  356. set w_ok=
  357. if errorlevel 3 goto _cleaning
  358. if errorlevel 2 goto _end
  359. :_odi3er
  360. set p_clnt=
  361. set p_prot=
  362. set p_prot2=
  363. if "%wrb%"=="1" set p_clnt=32
  364. if "%wrb%"=="2" set p_clnt=16
  365. if not "%p_clnt%"=="16" if not "%p_clnt%"=="32" %0 : _error No valid Client choosen
  366. if "%wcb1%"=="1" set p_prot=ipx
  367. if "%wcb2%"=="1" set p_prot=tcp
  368. if "%wcb1%"=="1" if "%wcb2%"=="1" set p_prot2=ipx
  369. if "%p_clnt%"=="16" set p_prot=ipx
  370. if "%p_prot%"=="" goto _odibox
  371.  
  372. :_sodidone
  373. echo NWLAN: NetWare %p_clnt% bit Client
  374. if "%p_clnt%"=="16" goto _nwcl1
  375. if exist %ramdrv%\lan\nios.exe goto _nwcl1
  376. if not exist %srcdrv%\lib\nwodi%p_clnt%.%arcext% %0 : _error missing '%srcdrv%\lib\nwodi%p_clnt%.%arcext%'
  377. call unpack.bat %srcdrv%\lib\nwodi%p_clnt%.%arcext%
  378. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwodi%p_clnt%.%arcext%'
  379. :_nwcl1
  380.  
  381. if not "%p_nicmode%"=="4" goto _norm
  382. set pci0=%p_nic%
  383. goto _pciok
  384. :_norm
  385. set pci0=
  386. if not exist %ramdrv%\etc\_nwlan16.pci if not exist %ramdrv%\etc\_nwlan32.pci goto _bldnic
  387. if not exist %ramdrv%\etc\_nwlan16.pci if exist %srcdrv%\lib\odi16\*.%arcext% goto _bldnic
  388. if not exist %ramdrv%\etc\_nwlan32.pci if exist %srcdrv%\lib\odi32\*.%arcext% goto _bldnic
  389. if exist %ramdrv%\etc\_nwlan16.pci if not exist %srcdrv%\lib\odi16\*.%arcext% goto _bldnic
  390. if exist %ramdrv%\etc\_nwlan32.pci if not exist %srcdrv%\lib\odi32\*.%arcext% goto _bldnic
  391. if not exist %ramdrv%\bin\crc32.com goto _bldnic
  392. if not exist %srcdrv%\lib\odi32\*.%arcext% goto _no32dir
  393. if not exist %ramdrv%\etc\_nwlan32.pci goto _bldnic
  394. set w_crc=
  395. lmod set w_crc=[$2]<%ramdrv%\etc\_nwlan32.pci >%tmp%\_nwlan.bat
  396. call %tmp%\_nwlan.bat
  397. dir %srcdrv%\lib\odi32\*.%arcext% | tfind /F10,3 "%arcext%" >%tmp%\_nwlan32.tm2
  398. echo NWLAN: Driver index ODI32 CRC32 is %w_crc%, checking...
  399. crc32 %tmp%\_nwlan32.tm2 %w_crc%
  400. if errorlevel 1 if not "%p_nonicbld%"=="1" goto _bldnic
  401. :_no32dir
  402. if not exist %srcdrv%\lib\odi16\*.%arcext% goto _no16dir
  403. if not exist %ramdrv%\etc\_nwlan16.pci goto _bldnic
  404. set w_crc=
  405. lmod set w_crc=[$2]<%ramdrv%\etc\_nwlan16.pci >%tmp%\_nwlan.bat
  406. call %tmp%\_nwlan.bat
  407. dir %srcdrv%\lib\odi16\*.%arcext% | tfind /F10,3 "%arcext%" >%tmp%\_nwlan16.tm2
  408. echo NWLAN: Driver index ODI16 CRC32 is %w_crc%, checking...
  409. crc32 %tmp%\_nwlan16.tm2 %w_crc%
  410. if errorlevel 1 if not "%p_nonicbld%"=="1" goto _bldnic
  411. :_no16dir
  412. :_pre2
  413. echo NWLAN: Using pre-built driver index from drive %srcdrv%
  414. if exist %ramdrv%\bin\repci.bat goto _xrepci
  415. if not exist %ramdrv%\etc\_nwlan16.nic goto _nq16nic
  416. type %ramdrv%\etc\_nwlan16.nic >>%tmp%\_nwlan16.nic
  417. :_nq16nic
  418. if not exist %ramdrv%\etc\_nwlan32.nic goto _nq32nic
  419. type %ramdrv%\etc\_nwlan32.nic >>%tmp%\_nwlan32.nic
  420. :_nq32nic
  421. :_nqnic
  422. if not exist %ramdrv%\etc\_nwlan16.pci goto _xr16pci
  423. type %ramdrv%\etc\_nwlan16.pci >>%tmp%\_nwlan16.pci
  424. :_xr16pci
  425. if not exist %ramdrv%\etc\_nwlan32.pci goto _xr32pci
  426. type %ramdrv%\etc\_nwlan32.pci >>%tmp%\_nwlan32.pci
  427. :_xr32pci
  428. goto _xrepcix
  429. :_xrepci
  430. if not exist %ramdrv%\etc\_nwlan16.pci goto _xg16pci
  431. if not exist %ramdrv%\lan\ipxodi.com if not exist %ramdrv%\lan\n16odi.com if not exist %srcdrv%\lib\nw16%p_clnt%.%arcext% goto _xg16pci
  432. echo NWLAN: Loading ODI16 driver index
  433. call repci.bat %ramdrv%\etc\_nwlan16.pci %tmp%\_nwlan16.pci %tmp%\_nwlan16.nic
  434. :_xg16pci
  435. if not exist %ramdrv%\etc\_nwlan32.pci goto _xg32pci
  436. if "%p_clnt%"=="16" goto _xg32pci
  437. if not exist %ramdrv%\lan\cmsm.nlm if not exist %srcdrv%\lib\nw32%p_clnt%.%arcext% goto _xg32pci
  438. echo NWLAN: Loading ODI32 driver index
  439. call repci.bat %ramdrv%\etc\_nwlan32.pci %tmp%\_nwlan32.pci %tmp%\_nwlan32.nic
  440. :_xg32pci
  441. :_xrepcix
  442. if not exist %tmp%\_nwlan16.* if not exist %tmp%\_nwlan32.* %0 : failed to create '%tmp%\_nwlan*.*'
  443. goto _nic2
  444. :_bldnic
  445. echo NWLAN: Building driver list from plug-ins
  446. for %%i in (%tmp%\_nwlan.nic %tmp%\_nwlan.pci %tmp%\_nwlan16.* %tmp%\_nwlan32.*) do if exist %%i del %%i >nul
  447. if not exist %srcdrv%\lib\odi32\*.%arcext% goto _ndo32x
  448. set w_odi=32
  449. if exist %tmp%\_nwlan%w_odi%.pci del %tmp%\_nwlan%w_odi%.pci >nul
  450. if exist %tmp%\_nwlan%w_odi%.nic del %tmp%\_nwlan%w_odi%.nic >nul
  451. for %%i in (%srcdrv%\lib\odi32\*.%arcext%) do call %0 : _addnic %%i
  452. echo. >>%tmp%\_nwlan32.pci
  453. echo NWLAN: Loading ODI32 driver index
  454. if exist %ramdrv%\bin\repci.bat call repci.bat %tmp%\_nwlan32.pci %tmp%\_nwlan32.pci %tmp%\_nwlan32.nic
  455. echo NWLAN: Generating 32 bits CRC ODI32
  456. dir %srcdrv%\lib\odi32\*.%arcext% | tfind /F10,3 "%arcext%" >%tmp%\_nwlan32.tm2
  457. crc32 %tmp%\_nwlan32.tm2 >%tmp%\_nwlan32.crc
  458. :_ndo32x
  459. if not exist %srcdrv%\lib\odi16\*.%arcext% goto _ndo16x
  460. set w_odi=16
  461. if exist %tmp%\_nwlan%w_odi%.pci del %tmp%\_nwlan%w_odi%.pci >nul
  462. if exist %tmp%\_nwlan%w_odi%.nic del %tmp%\_nwlan%w_odi%.nic >nul
  463. for %%i in (%srcdrv%\lib\odi16\*.%arcext%) do call %0 : _addnic %%i
  464. echo. >>%tmp%\_nwlan16.pci
  465. echo NWLAN: Loading ODI16 driver index
  466. if exist %ramdrv%\bin\repci.bat call repci.bat %tmp%\_nwlan16.pci %tmp%\_nwlan16.pci %tmp%\_nwlan16.nic
  467. echo NWLAN: Generating 32 bits CRC ODI16
  468. dir %srcdrv%\lib\odi16\*.%arcext% | tfind /F10,3 "%arcext%" >%tmp%\_nwlan16.tm2
  469. crc32 %tmp%\_nwlan16.tm2 >%tmp%\_nwlan16.crc
  470. :_ndo16x
  471.  
  472. if "%p_nonicsav%"=="1" goto _gddjkl
  473. if not exist %ramdrv%\bin\ettool.com goto _savdrv
  474. ettool.com -e -s
  475. if errorlevel 255 %0 : _error ettool.com 255
  476. if errorlevel 1 goto _oncd2
  477. goto _savdrv
  478. :_oncd2
  479. echo NWLAN: Booted from CD-Rom, where to put pre-built index?
  480. wbat box @%0:w_ramdrv
  481. if errorlevel 4 goto _nic2
  482. if errorlevel 1 set wbat=%ramdrv%
  483. if errorlevel 2 set wbat=a:
  484. if errorlevel 3 set wbat=b:
  485. :_oncd3
  486. echo NWLAN: Copying to %wbat%
  487. if not exist %wbat%\Etc\*.* mkdir %wbat%\Etc
  488. if not exist %tmp%\_nwlan16.pci goto _podr16
  489. lmod ; []<%tmp%\_nwlan16.crc >%wbat%\etc\_nwlan16.pci
  490. type %tmp%\_nwlan16.pci >>%wbat%\etc\_nwlan16.pci
  491. if exist %wbat%\etc\_nwlan16.crc del %wbat%\etc\_nwlan16.crc >nul
  492. if "%ramdrv%"=="%wbat%" goto _podr16
  493. type %wbat%\etc\_nwlan16.pci >%ramdrv%\etc\_nwlan16.pci
  494. :_podr16
  495. if not exist %tmp%\_nwlan32.pci goto _podr32
  496. lmod ; []<%tmp%\_nwlan32.crc >%wbat%\etc\_nwlan32.pci
  497. type %tmp%\_nwlan32.pci >>%wbat%\etc\_nwlan32.pci
  498. if exist %wbat%\etc\_nwlan32.crc del %wbat%\etc\_nwlan32.crc >nul
  499. if "%ramdrv%"=="%wbat%" goto _podr32
  500. type %wbat%\etc\_nwlan32.pci >%ramdrv%\etc\_nwlan32.pci
  501. :_podr32
  502. if exist %ramdrv%\bin\repci.bat goto _nic2
  503. if not exist %tmp%\_nwlan16.nic goto _podr16z
  504. type %tmp%\_nwlan16.nic >%wbat%\etc\_nwlan16.nic
  505. type %tmp%\_nwlan16.nic >%ramdrv%\etc\_nwlan16.nic
  506. :_podr16z
  507. if not exist %tmp%\_nwlan32.nic goto _podr32z
  508. type %tmp%\_nwlan32.nic >%wbat%\etc\_nwlan32.nic
  509. type %tmp%\_nwlan32.nic >%ramdrv%\etc\_nwlan32.nic
  510. :_podr32z
  511. goto _nic2
  512. :_savdrv
  513. echo NWLAN: About to copy driver index to %srcdrv% for faster boot next time
  514. echo NWLAN: Skip this by hitting [Cancel] in the write protection dialog
  515. set t_out=1
  516. call drd.bat %srcdrv%
  517. if errorlevel 1 set t_out=0
  518. wbat box @%0:w_wprot #1,%t_out%
  519. set t_out=
  520. if errorlevel 2 goto _nic2
  521. if not exist %srcdrv%\Etc\*.* mkdir %srcdrv%\Etc
  522. for %%i in (%srcdrv%\etc\_nwlan.* %srcdrv%\etc\_nwlan16.* %srcdrv%\etc\_nwlan32.*) do if exist %%i del %%i >nul
  523. :_gddjkl
  524. for %%i in (%ramdrv%\etc\_nwlan.* %ramdrv%\etc\_nwlan16.* %ramdrv%\etc\_nwlan32.*) do if exist %%i del %%i >nul
  525. if not exist %tmp%\_nwlan16.pci goto _podr16q
  526. lmod ; []<%tmp%\_nwlan16.crc >%ramdrv%\etc\_nwlan16.pci
  527. type %tmp%\_nwlan16.pci >>%ramdrv%\etc\_nwlan16.pci
  528. if "%p_nonicsav%"=="1" goto _podr16q
  529. type %ramdrv%\etc\_nwlan16.pci >%srcdrv%\etc\_nwlan16.pci
  530. if exist %srcdrv%\etc\_nwlan16.crc del %srcdrv%\etc\_nwlan16.crc >nul
  531. :_podr16q
  532. if not exist %tmp%\_nwlan32.pci goto _podr32q
  533. lmod ; []<%tmp%\_nwlan32.crc >%ramdrv%\etc\_nwlan32.pci
  534. type %tmp%\_nwlan32.pci >>%ramdrv%\etc\_nwlan32.pci
  535. if "%p_nonicsav%"=="1" goto _podr32q
  536. type %ramdrv%\etc\_nwlan32.pci >%srcdrv%\etc\_nwlan32.pci
  537. if exist %srcdrv%\etc\_nwlan32.crc del %srcdrv%\etc\_nwlan32.crc >nul
  538. :_podr32q
  539. if exist %ramdrv%\bin\repci.bat goto _nic2
  540. if not exist %tmp%\_nwlan16.nic goto _podr16y
  541. type %tmp%\_nwlan16.nic >%ramdrv%\etc\_nwlan16.nic
  542. if "%p_nonicsav%"=="1" goto _podr16y
  543. type %tmp%\_nwlan16.nic >%srcdrv%\etc\_nwlan16.nic
  544. :_podr16y
  545. if not exist %tmp%\_nwlan32.nic goto _podr32y
  546. type %tmp%\_nwlan32.nic >%ramdrv%\etc\_nwlan32.nic
  547. if "%p_nonicsav%"=="1" goto _podr32y
  548. type %tmp%\_nwlan32.nic >%srcdrv%\etc\_nwlan32.nic
  549. :_podr32y
  550. :_nic2
  551. echo. >%tmp%\_nwlan.pci
  552. echo ; This file is used to manual>%tmp%\_nwlan.nic
  553. echo ; select a network driver>>%tmp%\_nwlan.nic
  554. echo :_lan "Select Network driver..." [x]>>%tmp%\_nwlan.nic
  555. if not exist %tmp%\_nwlan32.pci goto _ngth32
  556. if "%p_clnt%"=="16" goto _ngth32
  557. if not exist %ramdrv%\lan\cmsm.nlm if not exist %srcdrv%\lib\nw32%p_clnt%.%arcext% goto _ngth32
  558. type %tmp%\_nwlan32.pci >>%tmp%\_nwlan.pci
  559. echo. >>%tmp%\_nwlan.pci
  560. if not exist %tmp%\_nwlan32.nic goto _ngth32
  561. type %tmp%\_nwlan32.nic >>%tmp%\_nwlan.nic
  562. :_ngth32
  563. if not exist %tmp%\_nwlan16.pci goto _ngth16
  564. if not exist %ramdrv%\lan\ipxodi.com if not exist %ramdrv%\lan\n16odi.com if not exist %srcdrv%\lib\nw16%p_clnt%.%arcext% goto _ngth16
  565. type %tmp%\_nwlan16.pci >>%tmp%\_nwlan.pci
  566. echo. >>%tmp%\_nwlan.pci
  567. if not exist %tmp%\_nwlan16.nic goto _ngth16
  568. type %tmp%\_nwlan16.nic >>%tmp%\_nwlan.nic
  569. :_ngth16
  570. set pci0=
  571. tfind /e "ret=" <%tmp%\_nwlan.pci >nul
  572. if errorlevel 2 goto _2nicok
  573. if errorlevel 1 goto _1nicok
  574. if errorlevel 0 %0 : _error No network driver(s) found...
  575. :_1nicok
  576. tfind "ret=" <%tmp%\_nwlan.pci >%tmp%\_nwlan.tmp
  577. lmod set wbat=[$2]<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  578. set wbat=
  579. call %tmp%\_nwlan.bat
  580. echo NWLAN: Auto selecting the only driver found (%wbat%)
  581. set pci0=%wbat%
  582. set wbat=
  583. goto _pciok
  584. :_2nicok
  585. if "%p_nicmode%"=="2" goto _auto
  586. if "%p_nicmode%"=="3" goto _manual
  587. :_nicprompt
  588. echo :w_auto "Auto detect PCI adapter?" [x]>%tmp%\_nwlan.tmp
  589. echo                                    (~press any key~: #? sec.)>>%tmp%\_nwlan.tmp
  590. echo.>>%tmp%\_nwlan.tmp
  591. if not exist %tmp%\_nwlan.pci goto _nopci
  592. echo [ Auto ]    Autodetect your PCI network adapter.>>%tmp%\_nwlan.tmp
  593. echo.>>%tmp%\_nwlan.tmp
  594. :_nopci
  595. if not exist %tmp%\_nwlan.nic goto _noman
  596. echo [ Manual  ] Manual select your network adapter from a list.>>%tmp%\_nwlan.tmp
  597. echo             Use this for PCMCIA and ISA based adapters.>>%tmp%\_nwlan.tmp
  598. echo.>>%tmp%\_nwlan.tmp
  599. :_noman
  600. if not exist %ramdrv%\bin\ettool.com goto _rebuild
  601. ettool.com -e -s
  602. if errorlevel 255 %0 : _error ettool.com 255
  603. if errorlevel 1 goto _oncd1
  604. goto _rebuild
  605. :_oncd1
  606. :_rebuild
  607. echo [ Rebuild ] Update the prebuild driver list on drive %srcdrv%.>>%tmp%\_nwlan.tmp
  608. echo             Use this if you have added/deleted some driver>>%tmp%\_nwlan.tmp
  609. echo             plug-in files.>>%tmp%\_nwlan.tmp
  610. echo.>>%tmp%\_nwlan.tmp
  611. :_norebld
  612. echo [? Back ]    Go back>>%tmp%\_nwlan.tmp
  613. call w.bat box @%tmp%\_nwlan.tmp:w_auto #1,%p_timeout%
  614. if errorlevel 100 goto _nmback
  615. if "%wbat%"=="Auto" goto _auto
  616. if "%wbat%"=="Manual" goto _manual
  617. if "%wbat%"=="Rebuild" goto _bldnic
  618. %0 : _error w_auto value "%wbat%" not found
  619. :_nmback
  620. if not exist %ramdrv%\etc\profile\*.pro goto _end
  621. goto _start
  622. :_auto
  623. echo NWLAN: PCI Network adapter detection...
  624. for %%i in (0 1 2 3 4) do set pci%%i=
  625. if exist %ramdrv%\bin\getpci.exe if exist %ramdrv%\bin\repci.bat goto _getpci
  626. if exist %ramdrv%\bin\pciscan.exe goto _pciscan
  627. goto _manual
  628. :_getpci
  629. call repci.bat : _pnp %tmp%\_nwlan.pci
  630. goto _pcipnp
  631. :_pciscan
  632. pciscan.exe -s -u -d -x %tmp%\_nwlan.pci >%tmp%\_nwlan.txt
  633. if errorlevel 1 goto _pcifailed
  634. if exist %tmp%\_nwlan.txt type %tmp%\_nwlan.txt
  635. echo %pci0% * >%tmp%\_nwlan.bak
  636. lmod @set _nwlan=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  637. call %tmp%\_nwlan.bat
  638. if not "%_nwlan%"=="" if not "%_nwlan%"=="*" goto _pciok
  639. if not exist %ramdrv%\bin\doenable.bat goto _tryisa
  640. pciscan.exe -v | xgrep -s "[:s][:x]\{4\}[:s]" >%tmp%\_nwlan.dev
  641. tfind /e "cardbus" <%tmp%\_nwlan.dev >nul
  642. if errorlevel 1 goto _cardbus
  643. tfind /e "pcmcia" <%tmp%\_nwlan.dev >nul
  644. if errorlevel 1 goto _cardbus
  645. goto _tryisa
  646. :_cardbus
  647. call %ramdrv%\bin\doenable.bat
  648. del %ramdrv%\bin\doenable.bat >nul
  649. tfind "e100bodi" <%tmp%\_nwlan.pci >nul
  650. if errorlevel 1 goto _pciscan
  651. tfind /v "ce100b32" <%tmp%\_nwlan.pci >%tmp%\_nwlan.tmp
  652. type %tmp%\_nwlan.tmp >%tmp%\_nwlan.pci
  653. goto _pciscan
  654. :_tryisa
  655. if "%p_noautoisa%"=="1" goto _0isa
  656. tfind "dev=" <%tmp%\_nwlan.pci | tfind /e "BAD " >nul
  657. if errorlevel 2 goto _0isa
  658. if errorlevel 1 goto _1isa
  659. goto _0isa
  660. :_1isa
  661. tfind "=" <%tmp%\_nwlan.pci >%tmp%\_nwlan.bak
  662. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  663. :_isalop
  664. lmod [] <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  665. tfind "dev=" <%tmp%\_nwlan.tmp | tfind /e "BAD " >nul
  666. if errorlevel 1 goto _isaloop
  667. linex 2- <%tmp%\_nwlan.bak >%tmp%\_nwlan.dum
  668. type %tmp%\_nwlan.dum >%tmp%\_nwlan.bak
  669. goto _isalop
  670. :_isaloop
  671. tfind "dev=" <%tmp%\_nwlan.tmp | lmod [] | tfind /e "BAD " >nul
  672. if errorlevel 1 goto _okisa
  673. linex 2- <%tmp%\_nwlan.tmp >%tmp%\_nwlan.bak
  674. type %tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  675. goto _isaloop
  676. :_okisa
  677. tfind "ret=" <%tmp%\_nwlan.tmp | lmod set wbat=[$2]>%tmp%\_nwlan.bat
  678. set wbat=
  679. call %tmp%\_nwlan.bat
  680. if "%wbat%"=="" goto _0isa
  681. echo NWLAN: No PCI match: Auto selecting single non-PCI driver (%wbat%)
  682. set pci0=%wbat%
  683. set wbat=
  684. goto _pciok
  685. :_0isa
  686. echo NWLAN: PCI detection has not found a listed PCI adapter. Switching to manual!
  687. @rem pause
  688. goto _manual
  689. :_pcifailed
  690. if exist %ramdrv%\bin\doenable.bat call %ramdrv%\bin\doenable.bat
  691. if exist %ramdrv%\bin\doenable.bat del %ramdrv%\bin\doenable.bat >nul
  692. echo NWLAN: PCI detection has failed, Switching to manual!
  693. :_manual
  694. lmod /L* [1,76] <%tmp%\_nwlan.nic >>%tmp%\_nwlan.tmp
  695. call w.bat list @%tmp%\_nwlan.tmp:_lan
  696. echo %wbat% * >%tmp%\_nwlan.bak
  697. lmod @set _nwlan=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  698. call %tmp%\_nwlan.bat
  699. if "%_nwlan%"=="*" goto _nicprompt
  700. echo %wbat% >%tmp%\_nwlan.bak
  701. lmod set pci0=[$1][+]set _nwlan=[$!]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  702. call %tmp%\_nwlan.bat
  703. set wbat=
  704. if "%_nwlan%"=="16b" set _nwlan=16
  705. if "%_nwlan%"=="16B" set _nwlan=16
  706. if "%_nwlan%"=="32b" set _nwlan=32
  707. if "%_nwlan%"=="32B" set _nwlan=32
  708. if "%_nwlan%"=="16" set pci0=%pci0% 9 9 9 %_nwlan%
  709. if "%_nwlan%"=="32" set pci0=%pci0% 9 9 9 %_nwlan%
  710.  
  711. :_pciok
  712. call %0 : _envtest %pci1%
  713. if errorlevel 1 goto _multix
  714. call %0 : _envtest %pci2%
  715. if errorlevel 1 goto _multix
  716. call %0 : _envtest %pci3%
  717. if errorlevel 1 goto _multix
  718. call %0 : _envtest %pci4%
  719. if errorlevel 1 goto _multix
  720. goto _single
  721. :_multix
  722. echo NWLAN: Multiple network adapters detected
  723. echo - %p_nicskip% - >%tmp%\_nwlan.bak
  724. echo. >>%tmp%\_nwlan.txt
  725. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  726.  
  727. call %0 : _envtest %pci0%
  728. if errorlevel 1 call %0 : _mul9nic %pci0%
  729. call %0 : _envtest %pci1%
  730. if errorlevel 1 call %0 : _mul9nic %pci1%
  731. call %0 : _envtest %pci2%
  732. if errorlevel 1 call %0 : _mul9nic %pci2%
  733. call %0 : _envtest %pci3%
  734. if errorlevel 1 call %0 : _mul9nic %pci3%
  735. call %0 : _envtest %pci4%
  736. if errorlevel 1 call %0 : _mul9nic %pci4%
  737.  
  738. goto _mulxnic
  739.  
  740. :_mul9nic
  741. shift
  742. shift
  743. if "%4"=="" goto _pcix9
  744. tfind /e " %1 " <%tmp%\_nwlan.bak >nul
  745. if errorlevel 1 goto _pciz9
  746. goto _skip2this
  747. basecvrt %2 | lmod set _nwlan=[]>%tmp%\_nwlan.bat
  748. call %tmp%\_nwlan.bat
  749. basecvrt %3 | lmod set _nwlan=[]/%_nwlan%/[]>%tmp%\_nwlan.bat
  750. call %tmp%\_nwlan.bat
  751. tfind /e ", %_nwlan%" " 16b " <%tmp%\_nwlan.txt >nul
  752. if errorlevel 1 goto _pci16v9
  753. tfind /e ", %_nwlan%" " 32b " <%tmp%\_nwlan.txt >nul
  754. if errorlevel 1 goto _pci32v9
  755. :_skip2this
  756. if not exist %tmp%\_nwlan.tmp goto _pciy9
  757. tfind /e "%1 %2 %3 %4" <%tmp%\_nwlan.tmp >nul
  758. if errorlevel 1 goto _pci16v9
  759. goto _pciy9
  760. :_pci32v9
  761. echo %1 %2 %3 %4 (32) >>%tmp%\_nwlan.tmp
  762. goto _pcix9
  763. :_pci16v9
  764. tfind /e "%1 " " (16)" <%tmp%\_nwlan.tmp >nul
  765. if errorlevel 1 goto _pci16u9
  766. echo %1 %2 %3 %4 (16) >>%tmp%\_nwlan.tmp
  767. goto _pcix9
  768. :_pciy9
  769. echo %1 %2 %3 %4 >>%tmp%\_nwlan.tmp
  770. goto _pcix9
  771. :_pci16u9
  772. echo NWLAN: Skipping double "%1 (16)"
  773. goto _pcix9
  774. :_pciw9
  775. echo NWLAN: Skipping double "%1 %2 %3 %4"
  776. goto _pcix9
  777. :_pciz9
  778. echo NWLAN: Ignoring "%1"
  779. goto _pcix9
  780. :_pcix9
  781. goto _eof
  782.  
  783. :_mulxnic
  784. for %%i in (0 1 2 3 4 5) do if "%p_nicmulti%"=="%%i" goto _set2nic
  785. set p_nicmulti=1
  786. :_set2nic
  787. if exist %tmp%\_nwlan.tmp goto _multsect
  788. echo NWLAN: Ignoring too many network adapters, selecting default
  789. goto _single
  790. :_multsect
  791. lmod @set pci0=[]<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  792. call %tmp%\_nwlan.bat
  793. if "%p_nicmulti%"=="0" goto _multdone
  794. lmod /L* *[]<%tmp%\_nwlan.tmp | tfind /e "*" >nul
  795. if errorlevel 2 goto _mult2sect
  796. echo NWLAN: Selecting single one left
  797. goto _multdone
  798. :_mult2sect
  799. echo :_pcix " Select Adapter (def: %p_nicmulti%) " [x]>%tmp%\_nwlan.bak
  800. type %tmp%\_nwlan.tmp >>%tmp%\_nwlan.bak
  801. call w.bat list @%tmp%\_nwlan.bak:_pcix #%p_nicmulti%,%p_timeout%
  802. if errorlevel 100 goto _nicprompt
  803. call %0 : _envtest %wbat%
  804. if errorlevel 1 set pci0=%wbat%
  805. :_multdone
  806. call %0 : _envtest %pci0%
  807. if errorlevel 1 goto _single
  808. echo NWLAN: Multiple NIC selection failed, try manual instead
  809. goto _manual
  810. :_single
  811.  
  812. set w_ok=
  813. echo %pci0% >%tmp%\_nwlan.bak
  814. lmod /S() set pci0=[$1] [$2] [$3] [$4][+]set pci1=[$5]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  815. call %tmp%\_nwlan.bat
  816. if exist %ramdrv%\bin\Nbihw.bat call Nbihw.bat 0
  817. echo %pci0% >%tmp%\_nwlan.bak
  818. lmod set pci0=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  819. call %tmp%\_nwlan.bat
  820. echo NWLAN: Extracting driver file "%pci0%"
  821. if exist %ramdrv%\lan\%pci0%.lan del %ramdrv%\lan\%pci0%.lan >nul
  822. if exist %ramdrv%\lan\%pci0%.com del %ramdrv%\lan\%pci0%.com >nul
  823. if exist %ramdrv%\lan\odi16.isa del %ramdrv%\lan\odi16.isa >nul
  824. if exist %ramdrv%\lan\odi16.pci del %ramdrv%\lan\odi16.pci >nul
  825. if exist %ramdrv%\lan\odi32.isa del %ramdrv%\lan\odi32.isa >nul
  826. if exist %ramdrv%\lan\odi32.pci del %ramdrv%\lan\odi32.pci >nul
  827. if exist %ramdrv%\lan\autorun.bat del %ramdrv%\lan\autorun.bat >nul
  828. set w_odi=%p_clnt%
  829. if "%pci1%"=="16" if "%p_clnt%"=="32" goto _src4th
  830. :_strtsrc
  831. if not exist %ramdrv%\lib\odi%w_odi%\%pci0%.%arcext% goto _fromsrc
  832. call unpack.bat %ramdrv%\lib\odi%w_odi%\%pci0%.%arcext% lan\ lan\
  833. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\odi%w_odi%\%pci0%.%arcext%'
  834. goto _unpok
  835. :_fromsrc
  836. if not exist %srcdrv%\lib\odi%w_odi%\%pci0%.%arcext% goto _src2nd
  837. call unpack.bat %srcdrv%\lib\odi%w_odi%\%pci0%.%arcext% lan\ lan\
  838. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\odi%w_odi%\%pci0%.%arcext%'
  839. goto _unpok
  840. :_src2nd
  841. if "%pci1%"=="16" if "%p_clnt%"=="32" if "%w_odi%"=="16" goto _src3rd
  842. if "%pci1%"=="16" if "%p_clnt%"=="32" if "%w_odi%"=="32" %0 : _error cannot find '%pci0%.%arcext%'
  843. if "%w_odi%"=="16" %0 : _error cannot find '%pci0%.%arcext%'
  844. :_src4th
  845. if not exist %ramdrv%\lan\n16odi.com if not exist %srcdrv%\lib\nw1632.%arcext% %0 : _error cannot find '%srcdrv%\lib\nw1632.%arcext%'
  846. set w_odi=16
  847. goto _strtsrc
  848. :_src3rd
  849. set w_odi=32
  850. goto _strtsrc
  851. :_unpok
  852. if "%w_odi%"=="16" set nbi0=
  853.  
  854. if not exist %ramdrv%\lan\autorun.bat goto _noautorun
  855. call %ramdrv%\lan\autorun.bat
  856. del %ramdrv%\lan\autorun.bat >nul
  857. :_noautorun
  858. goto _nicok
  859.  
  860. :_addnic
  861. if exist %ramdrv%\odi%w_odi%.isa del %ramdrv%\odi%w_odi%.isa >nul
  862. if exist %ramdrv%\odi%w_odi%.pci del %ramdrv%\odi%w_odi%.pci >nul
  863. if exist %ramdrv%\odi%w_odi%.txt del %ramdrv%\odi%w_odi%.txt >nul
  864. if exist %tmp%\odi%w_odi%.isa del %tmp%\odi%w_odi%.isa >nul
  865. if exist %tmp%\odi%w_odi%.pci del %tmp%\odi%w_odi%.pci >nul
  866. if exist %tmp%\odi%w_odi%.txt del %tmp%\odi%w_odi%.txt >nul
  867. call unpack.bat %3 .\ .\ odi%w_odi%.*
  868. if not "%unpackerr%"=="" %0 : _error extracting '%3'
  869. if not exist %ramdrv%\odi%w_odi%.isa goto _hhisa
  870. type %ramdrv%\odi%w_odi%.isa >%tmp%\odi%w_odi%.isa
  871. del %ramdrv%\odi%w_odi%.isa >nul
  872. :_hhisa
  873. if not exist %ramdrv%\odi%w_odi%.pci goto _hhpci
  874. type %ramdrv%\odi%w_odi%.pci >%tmp%\odi%w_odi%.pci
  875. del %ramdrv%\odi%w_odi%.pci >nul
  876. :_hhpci
  877. if not exist %ramdrv%\odi%w_odi%.txt goto _hhtxt
  878. type %ramdrv%\odi%w_odi%.txt >%tmp%\odi%w_odi%.txt
  879. del %ramdrv%\odi%w_odi%.txt >nul
  880. :_hhtxt
  881. if not exist %tmp%\odi%w_odi%.txt goto _lantxt
  882. type %tmp%\odi%w_odi%.txt >>%tmp%\_nwlan%w_odi%.nic
  883. :_lantxt
  884. if not exist %tmp%\odi%w_odi%.pci goto _lanpci
  885. xgrep -sv "^[:s]*;" %tmp%\odi%w_odi%.pci >>%tmp%\_nwlan%w_odi%.pci
  886. :_lanpci
  887. if not exist %tmp%\odi%w_odi%.isa goto _lanisa
  888. xgrep -sv "^[:s]*;" %tmp%\odi%w_odi%.isa >>%tmp%\_nwlan%w_odi%.pci
  889. :_lanisa
  890. if exist %tmp%\odi%w_odi%.isa del %tmp%\odi%w_odi%.isa >nul
  891. if exist %tmp%\odi%w_odi%.pci del %tmp%\odi%w_odi%.pci >nul
  892. if exist %tmp%\odi%w_odi%.txt del %tmp%\odi%w_odi%.txt >nul
  893. goto _eof
  894.  
  895. :_nolan
  896. %0 : _error No driver files found on %srcdrv% (%srcdrv%\lib\odi%p_clnt%\*.%arcext%)
  897.  
  898. :_nicok
  899. set p_nic=%pci0%
  900. set pci0=
  901. set w_netcard=
  902. if "%w_odi%"=="16" set w_netcard=%p_nic%.com
  903. if "%w_odi%"=="32" set w_netcard=%p_nic%.lan
  904. if not exist %ramdrv%\lan\%w_netcard% %0 : _error Nic driver %ramdrv%\lan\%w_netcard% not found
  905. if "%w_netcard%"=="" %0 : _error No driver found for '%p_nic%'
  906. if "%p_clnt%"=="16" if exist %ramdrv%\lan\lsl.com goto _skp3216
  907. if "%p_clnt%"=="32" if "%w_odi%"=="32" if exist %ramdrv%\lan\cmsm.nlm goto _skp3216
  908. if "%p_clnt%"=="32" if "%w_odi%"=="16" if exist %ramdrv%\lan\n16odi.com if exist %ramdrv%\lan\nesl.com if exist %ramdrv%\lan\pc32mlid.lan goto _skp3216
  909. :_sp3216
  910. echo NWLAN: Prepare support for %w_odi% bit ODI driver with %p_clnt% bit Client
  911. if not exist %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext% %0 : _error missing '%srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%'
  912. call unpack.bat %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%
  913. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%'
  914. if "%w_clnt%"=="" set w_clnt=%p_clnt%
  915. if "%p_clnt%"=="32" if "%w_odi%"=="16" if not exist %ramdrv%\lan\lsl.com set p_clnt=16
  916. if "%p_clnt%"=="16" if "%w_odi%"=="16" if not exist %ramdrv%\lan\lsl.com goto _sp3216
  917. if not "%p_clnt%"=="%w_clnt%" set p_clnt=%w_clnt%
  918. set w_clnt=
  919. :_skp3216
  920. if "%w_odi%"=="16" goto _carddone
  921. echo @LOAD %w_netcard% >%ramdrv%\lan\%p_nic%.bat
  922. :_carddone
  923.  
  924. set p_topo=
  925. set w_tp=
  926. if not "%p_clnt%"=="32" set w_tp=e
  927. if not "%p_clnt%"=="32" set p_topo=ether
  928. if not "%p_clnt%"=="32" goto _skp5tsm
  929. if not "%w_odi%"=="32" set w_tp=e
  930. if not "%w_odi%"=="32" set p_topo=ether
  931. if not "%w_odi%"=="32" goto _skp5tsm
  932.  
  933. set p_topo=ether
  934. if not "%p_topo%"=="ether" goto _tr61
  935. xfind "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  936. if errorlevel 1 set p_topo=ethernet_
  937. :_tr61
  938. if not "%p_topo%"=="ethernet_" goto _tr62
  939. xfind "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  940. if errorlevel 1 set p_topo=token
  941. :_tr62
  942. if not "%p_topo%"=="token" goto _tr63
  943. xfind "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  944. if errorlevel 1 set p_topo=token-ring_
  945. :_tr63
  946. if not "%p_topo%"=="token-ring_" goto _tr64
  947. xfind "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  948. if errorlevel 1 set p_topo=fddi
  949. :_tr64
  950. if not "%p_topo%"=="fddi" goto _tr65
  951. xfind "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  952. if errorlevel 1 set p_topo=fddi_
  953. :_tr65
  954. if not "%p_topo%"=="fddi_" goto _tr66
  955. xfind "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  956. if errorlevel 1 set p_topo=
  957. :_tr66
  958.  
  959. if not "%p_topo%"=="" goto _tr70
  960.  
  961. set p_topo=ether
  962. if not "%p_topo%"=="ether" goto _tr51
  963. xgrep -sy "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  964. if errorlevel 1 set p_topo=ethernet_
  965. :_tr51
  966. if not "%p_topo%"=="ethernet_" goto _tr52
  967. xgrep -sy "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  968. if errorlevel 1 set p_topo=token
  969. :_tr52
  970. if not "%p_topo%"=="token" goto _tr53
  971. xgrep -sy "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  972. if errorlevel 1 set p_topo=token-ring_
  973. :_tr53
  974. if not "%p_topo%"=="token-ring_" goto _tr54
  975. xgrep -sy "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  976. if errorlevel 1 set p_topo=fddi
  977. :_tr54
  978. if not "%p_topo%"=="fddi" goto _tr55
  979. xgrep -sy "%p_topo%tsm" %ramdrv%\lan\%w_netcard% >nul
  980. if errorlevel 1 set p_topo=fddi_
  981. :_tr55
  982. if not "%p_topo%"=="fddi_" goto _tr56
  983. xgrep -sy "%p_topo%" %ramdrv%\lan\%w_netcard% >nul
  984. if errorlevel 1 set p_topo=
  985. :_tr56
  986.  
  987. set p_topo=ether
  988.  
  989. :_tr70
  990. if "%p_topo%"=="" %0 : _error Cannot determine Topology
  991. if "%p_topo%"=="ethernet_" set p_topo=ether
  992. if "%p_topo%"=="token-ring_" set p_topo=token
  993. if "%p_topo%"=="fddi_" set p_topo=fddi
  994. echo NWLAN: Topology %p_topo%
  995. if "%p_topo%"=="ether" set w_tp=e
  996. if "%p_topo%"=="token" set w_tp=t
  997. if "%p_topo%"=="fddi" set w_tp=f
  998. if exist %ramdrv%\lan\%p_topo%tsm.nlm goto _skp5tsm
  999. if not exist %srcdrv%\lib\nw%w_odi%%p_clnt%%w_tp%.%arcext% %0 : _error Cannot find %srcdrv%\lib\nw%w_odi%%p_clnt%%w_tp%.%arcext%
  1000. echo NWLAN: Prepare support for Topology '%p_topo%' with %p_clnt% bit Client
  1001. call unpack.bat %srcdrv%\lib\nw%w_odi%%p_clnt%%w_tp%.%arcext%
  1002. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%w_odi%%p_clnt%%w_tp%.%arcext%'
  1003. :_skp5tsm
  1004. if not "%p_topo%"=="token" goto _skp5srt
  1005. if "%p_nosroute%"=="1" goto _skp5srt
  1006. if exist sroute.nlm goto _skp5srt
  1007. if not exist %srcdrv%\lib\sroute.%arcext% goto _skp5srt
  1008. echo NWLAN: Prepare SROUTE for Topology '%p_topo%'
  1009. call unpack.bat %srcdrv%\lib\sroute.%arcext%
  1010. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\sroute.%arcext%'
  1011. :_skp5srt
  1012.  
  1013. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr del %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >nul
  1014. if not "%p_topo%"=="ether" set p_8023=
  1015. if not "%p_topo%"=="ether" set p_ii=
  1016. if not "%p_8022%"=="1" if not "%p_8023%"=="1" if not "%p_ii%"=="1" if not "%p_snap%"=="1" goto _defframe
  1017. goto _def1frame
  1018. :_defframe
  1019. if not "%p_prot%"=="tcp" goto _def2frame
  1020. if "%p_topo%"=="ether" set p_ii=1
  1021. if not "%p_topo%"=="ether" set p_snap=1
  1022. goto _def1frame
  1023. :_def2frame
  1024. set p_8022=1
  1025. set p_snap=1
  1026. if "%p_topo%"=="ether" set p_8023=1
  1027. if "%p_topo%"=="ether" set p_ii=1
  1028. :_def1frame
  1029. set w_frame=
  1030. if "%p_topo%"=="ether" set w_frame=Ethernet
  1031. if "%p_topo%"=="token" set w_frame=Token-ring
  1032. if "%p_topo%"=="fddi" set w_frame=Fddi
  1033. if not "%p_8022%"=="1" set p_8022=0
  1034. if not "%p_snap%"=="1" set p_snap=0
  1035. if not "%p_8023%"=="1" set p_8023=0
  1036. if not "%p_ii%"=="1" set p_ii=0
  1037. set wrb=
  1038. set wcb1=
  1039. set wcb2=
  1040. set wcb3=
  1041. set wcb4=
  1042. echo :w_frame " Select Frame type " [x]>%tmp%\_nwlan.tmp
  1043. echo              (~press any key~: #? sec.)>>%tmp%\_nwlan.tmp
  1044. echo.>>%tmp%\_nwlan.tmp
  1045. if "%p_topo%"=="token" goto _tkn22
  1046. if not "%p_tcpframe%"=="1" if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" goto _tkn22a
  1047. echo [!] %w_frame%_802.2 >>%tmp%\_nwlan.tmp
  1048. set wcb1=%p_8022%
  1049. set p_8022=
  1050. goto _tkn24
  1051. :_tkn22a
  1052. echo [[ ] %w_frame%_802.2 >>%tmp%\_nwlan.tmp
  1053. goto _tkn24
  1054. :_tkn22
  1055. if not "%p_tcpframe%"=="1" if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" goto _tkn22b
  1056. echo [!] %w_frame% >>%tmp%\_nwlan.tmp
  1057. set wcb1=%p_8022%
  1058. set p_8022=
  1059. goto _tkn24
  1060. :_tkn22b
  1061. echo [[ ] %w_frame% >>%tmp%\_nwlan.tmp
  1062. goto _tkn24
  1063. :_tkn24
  1064. if "%p_topo%"=="ether" goto _net22
  1065. if "%p_prot%"=="tcp" goto _snp0ipx
  1066. echo [!] %w_frame%_SNAP >>%tmp%\_nwlan.tmp
  1067. set wcb1=%p_snap%
  1068. set p_snap=
  1069. goto _snp1ipx
  1070. :_snp0ipx
  1071. echo [[x] %w_frame%_SNAP >>%tmp%\_nwlan.tmp
  1072. set p_snap=1
  1073. :_snp1ipx
  1074. goto _net33
  1075. :_net22
  1076.  
  1077. if not "%p_tcpframe%"=="1" if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" goto _tkn29a
  1078. echo [!] %w_frame%_SNAP >>%tmp%\_nwlan.tmp
  1079. set wcb2=%p_snap%
  1080. set p_snap=
  1081. goto _tkn29
  1082. :_tkn29a
  1083. echo [[ ] %w_frame%_SNAP >>%tmp%\_nwlan.tmp
  1084. goto _tkn29
  1085. :_tkn29
  1086.  
  1087. if not "%p_tcpframe%"=="1" if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" goto _tkn26a
  1088. echo [!] %w_frame%_802.3 >>%tmp%\_nwlan.tmp
  1089. set wcb3=%p_8023%
  1090. set p_8023=
  1091. goto _tkn26
  1092. :_tkn26a
  1093. echo [[ ] %w_frame%_802.3 >>%tmp%\_nwlan.tmp
  1094. goto _tkn26
  1095. :_tkn26
  1096.  
  1097. if "%p_prot%"=="tcp" goto _ii0ipx
  1098. echo [!] %w_frame%_II >>%tmp%\_nwlan.tmp
  1099. set wcb4=%p_ii%
  1100. set p_ii=
  1101. goto _ii1ipx
  1102. :_ii0ipx
  1103. echo [[x] %w_frame%_II >>%tmp%\_nwlan.tmp
  1104. set p_ii=1
  1105. :_ii1ipx
  1106.  
  1107. if "%p_8022%"=="" goto _wcb1az
  1108. set wcb1=%wcb2%
  1109. set wcb2=%wcb3%
  1110. set wcb3=%wcb4%
  1111. set wcb4=
  1112. :_wcb1az
  1113. if "%p_snap%"=="" goto _wcb2az
  1114. set wcb2=%wcb3%
  1115. set wcb3=%wcb4%
  1116. set wcb4=
  1117. :_wcb2az
  1118. if "%p_8023%"=="" goto _wcb3az
  1119. set wcb3=%wcb4%
  1120. set wcb4=
  1121. :_wcb3az
  1122.  
  1123. :_net33
  1124. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr del %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >nul
  1125. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg del %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg >nul
  1126. if "%p_prot2%"=="" goto _sgetg
  1127. if exist %ramdrv%\lan\%p_prot2%%w_odi%%p_clnt%.ldr del %ramdrv%\lan\%p_prot2%%w_odi%%p_clnt%.ldr >nul
  1128. if exist %ramdrv%\lan\%p_prot2%%w_odi%%p_clnt%.cfg del %ramdrv%\lan\%p_prot2%%w_odi%%p_clnt%.cfg >nul
  1129. :_sgetg
  1130. if "%w_odi%"=="32" goto _f5rm
  1131. if "%p_prot%"=="tcp" goto _f4rm
  1132. if "%p_topo%"=="ether" goto _f6rm
  1133. echo. >>%tmp%\_nwlan.tmp
  1134. echo (include '%w_frame%_SNAP' if you would >>%tmp%\_nwlan.tmp
  1135. echo  like to add Packet Driver support) >>%tmp%\_nwlan.tmp
  1136. goto _f4rm
  1137. :_f6rm
  1138. echo. >>%tmp%\_nwlan.tmp
  1139. echo (include '%w_frame%_II' if you would >>%tmp%\_nwlan.tmp
  1140. echo  like to add Packet Driver support) >>%tmp%\_nwlan.tmp
  1141. goto _f4rm
  1142. :_f5rm
  1143. if "%p_prot%"=="tcp" goto _f4rm
  1144. if not exist %ramdrv%\lan\pdosmlid.nlm if not exist %srcdrv%\lib\nw%p_clnt%pkt.%arcext% goto _f4rm
  1145. if not exist %ramdrv%\lan\net%p_topo%.cfg if not exist %srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext% goto _f4rm
  1146. echo. >>%tmp%\_nwlan.tmp
  1147. echo (select all frame types if you would >>%tmp%\_nwlan.tmp
  1148. echo  like to add Packet Driver support) >>%tmp%\_nwlan.tmp
  1149. :_f4rm
  1150. if not "%p_topo%"=="token" if not "%p_lsbmsb%"=="1" goto _f7rm
  1151. echo. >>%tmp%\_nwlan.tmp
  1152. echo LSB [.] (Least Significant Bit first)>>%tmp%\_nwlan.tmp
  1153. echo MSB [.] (Most  Significant Bit first)>>%tmp%\_nwlan.tmp
  1154. set wrb=2
  1155. for %%i in (lsb LSB lSB LSb LsB Lsb lSb lsB) do if "%p_lmsb%"=="%%i" set wrb=1
  1156. for %%i in (msb MSB mSB MSb MsB Msb mSb msB) do if "%p_lmsb%"=="%%i" set wrb=2
  1157. :_f7rm
  1158. echo. >>%tmp%\_nwlan.tmp
  1159. echo          [ OK ] [? Cancel ] >>%tmp%\_nwlan.tmp
  1160.  
  1161. set w_ok=3
  1162. if "%p_topo%"=="ether" set w_ok=5
  1163. if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" set w_ok=4
  1164. if not "%p_tcpframe%"=="1" if not "%p_prot%"=="ipx" if not "%p_prot2%"=="ipx" set w_ok=1
  1165. if "%w_ok%"=="4" if not "%p_topo%"=="ether" set w_ok=2
  1166. if "%w_ok%"=="3" if "%p_prot%"=="tcp" set w_ok=2
  1167. if "%w_ok%"=="5" if "%p_prot2%"=="ipx" if "%p_prot%"=="tcp" set w_ok=4
  1168. if "%w_ok%"=="5" if not "%wrb%"=="" set w_ok=7
  1169. if "%w_ok%"=="4" if not "%wrb%"=="" set w_ok=6
  1170. if "%w_ok%"=="3" if not "%wrb%"=="" set w_ok=5
  1171. if "%w_ok%"=="2" if not "%wrb%"=="" set w_ok=4
  1172. if "%w_ok%"=="1" if not "%wrb%"=="" set w_ok=3
  1173. if "%p_frmwin%"=="1" goto _nfr5win
  1174. if "%w_ok%"=="1" goto _nfr5win
  1175. call w.bat box @%tmp%\_nwlan.tmp:w_frame #%w_ok%,%p_timeout%
  1176. if errorlevel 3 goto _odibox
  1177. if errorlevel 2 goto _end
  1178. :_nfr5win
  1179. set p_lmsb=
  1180. set w_ok=
  1181. if "%wrb%"=="1" set p_lmsb=lsb
  1182. if "%wrb%"=="2" set p_lmsb=msb
  1183.  
  1184. if not "%p_8022%"=="" set wcb4=%wcb3%
  1185. if not "%p_8022%"=="" set wcb3=%wcb2%
  1186. if not "%p_8022%"=="" set wcb2=%wcb1%
  1187. if "%p_8022%"=="" set p_8022=%wcb1%
  1188. if not "%p_snap%"=="" set wcb4=%wcb3%
  1189. if not "%p_snap%"=="" set wcb3=%wcb2%
  1190. if "%p_snap%"=="" set p_snap=%wcb2%
  1191. if not "%p_8023%"=="" set wcb4=%wcb3%
  1192. if "%p_8023%"=="" set p_8023=%wcb3%
  1193. if "%p_ii%"=="" set p_ii=%wcb4%
  1194.  
  1195. if not "%p_8022%"=="1" goto _n1wcb1
  1196. if "%p_topo%"=="token" goto _tknqt2
  1197. echo Frame=%w_frame%_802.2 >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1198. goto _tknqt3
  1199. :_tknqt2
  1200. echo Frame=%w_frame% >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1201. :_tknqt3
  1202. :_n1wcb1
  1203. if not "%p_8023%"=="1" goto _n1wcb3
  1204. echo Frame=%w_frame%_802.3 >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1205. :_n1wcb3
  1206. if not "%p_ii%"=="1" goto _n1wcb4
  1207. echo Frame=%w_frame%_II >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1208. :_n1wcb4
  1209. if not "%p_snap%"=="1" goto _n1wcb2
  1210. echo Frame=%w_frame%_SNAP >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1211. :_n1wcb2
  1212. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _n1wcb5
  1213. if "%p_topo%"=="token" goto _tknqu2
  1214. echo Frame=%w_frame%_802.2 >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1215. goto _tknqu3
  1216. :_tknqu2
  1217. echo Frame=%w_frame% >>%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1218. :_tknqu3
  1219. set p_8022=1
  1220. :_n1wcb5
  1221. if "%p_lmsb%"=="" goto _n1wcb6
  1222. lmod /L* [] %p_lmsb% <%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >%tmp%\_nwlan.tmp
  1223. lmod /L* []<%tmp%\_nwlan.tmp >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1224. :_n1wcb6
  1225. if not "%w_odi%"=="16" goto _nxw2
  1226. lmod /L* [~32][~32][~32][~32][$1:$!]<%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >%tmp%\_nwlan.tmp
  1227. lmod /L* []<%tmp%\_nwlan.tmp >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1228. :_nxw2
  1229. set w_frame=
  1230. if not "%p_8022%"=="1" set p_8022=
  1231. if not "%p_snap%"=="1" set p_snap=
  1232. if not "%p_8023%"=="1" set p_8023=
  1233. if not "%p_ii%"=="1" set p_ii=
  1234. :_noipxp
  1235.  
  1236. set w_ok=
  1237. if not "%p_pkt3232%"=="1" if "%p_prot%"=="tcp" if "%w_odi%"=="32" goto _no5pkt
  1238. if not exist %ramdrv%\lan\odipkt.com if not exist %srcdrv%\lib\nwpkt.%arcext% goto _no5pkt
  1239. if not "%p_clnt%"=="32" goto _nert5
  1240. if "%w_odi%"=="16" goto _juhy
  1241. if not exist %ramdrv%\lan\pdosmlid.nlm if not exist %srcdrv%\lib\nw%p_clnt%pkt.%arcext% goto _no5pkt
  1242. if not exist %ramdrv%\lan\net%p_topo%.cfg if not exist %srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext% goto _no5pkt
  1243. goto _nert6
  1244. :_juhy
  1245. if not exist %ramdrv%\lan\n16odi.com if not exist %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext% goto _no5pkt
  1246. goto _nert6
  1247. :_nert5
  1248. :_nert6
  1249. if "%p_topo%"=="ether" if not "%p_ii%"=="1" goto _no5pkt
  1250. if "%p_topo%"=="ether" if not "%p_8022%"=="1" if "%w_odi%"=="32" goto _no5pkt
  1251. if "%p_topo%"=="ether" if not "%p_8023%"=="1" if "%w_odi%"=="32" goto _no5pkt
  1252. if "%p_topo%"=="ether" if not "%p_snap%"=="1" if "%w_odi%"=="32" goto _no5pkt
  1253. if "%p_topo%"=="token" if not "%p_8022%"=="1" goto _no5pkt
  1254. if "%p_topo%"=="token" if not "%p_snap%"=="1" goto _no5pkt
  1255. if "%p_topo%"=="fddi" if not "%p_8022%"=="1" goto _no5pkt
  1256. if "%p_topo%"=="fddi" if not "%p_snap%"=="1" goto _no5pkt
  1257. set w_ok=1
  1258. goto _no55pkt
  1259. :_no5pkt
  1260. set p_pkt=0
  1261. :_no55pkt
  1262.  
  1263. if not "%w_ok%"=="1" goto _no3pkt
  1264. if "%p_prot%"=="tcp" goto _no3pkt
  1265. if "%p_tcpwin%"=="1" goto _no3pkt
  1266. set wrb=1
  1267. if not "%p_dhcp%"=="" if not "%p_dhcp%"=="1" set wrb=2
  1268. set wcb1=%p_pkt%
  1269. call w.bat box @%0:w_wtcp #12,%p_timeout%
  1270. if errorlevel 3 goto _odibox
  1271. if errorlevel 2 goto _end
  1272. if "%wcb1%"=="0" set wcb1=
  1273. set p_dhcp=%wrb%
  1274. if "%p_dhcp%"=="2" set p_dhcp=0
  1275. set p_pkt=%wcb1%
  1276. :_no3pkt
  1277.  
  1278. if not "%p_prot%"=="tcp" goto _notcp
  1279. if "%p_tcpwin%"=="1" goto _notcp
  1280. echo :w_tcp "TCP/IP Parameters" [x]>%tmp%\_nwlan.tmp
  1281. echo                         (~press any key~: #? sec.)>>%tmp%\_nwlan.tmp
  1282. echo. >>%tmp%\_nwlan.tmp
  1283. echo  [.] Dynamic IP (DHCP)>>%tmp%\_nwlan.tmp
  1284. echo. >>%tmp%\_nwlan.tmp
  1285. echo  [.] Static IP (fixed IP address)>>%tmp%\_nwlan.tmp
  1286. echo  IP address    : [$ p_ip,15      ]>>%tmp%\_nwlan.tmp
  1287. echo  Subnet Mask   : [$ p_subnet,15  ]>>%tmp%\_nwlan.tmp
  1288. echo  Gateway       : [$ p_gway,15    ]>>%tmp%\_nwlan.tmp
  1289. echo. >>%tmp%\_nwlan.tmp
  1290. echo  General IP settings (for Dynamic & Static)>>%tmp%\_nwlan.tmp
  1291. echo  Domain        : [$ p_domain,30               ]>>%tmp%\_nwlan.tmp
  1292. echo  Name Server   : [$ p_dns1,15     ]>>%tmp%\_nwlan.tmp
  1293. echo  Name Server   : [$ p_dns2,15     ] (optional)>>%tmp%\_nwlan.tmp
  1294. echo  Name Server   : [$ p_dns3,15     ] (optional)>>%tmp%\_nwlan.tmp
  1295. echo  (will be added to resolv.cfg)>>%tmp%\_nwlan.tmp
  1296. echo. >>%tmp%\_nwlan.tmp
  1297. if not "%w_ok%"=="1" goto _lskjw
  1298. echo  [!] Add Packet Driver support (OdiPkt)>>%tmp%\_nwlan.tmp
  1299. echo. >>%tmp%\_nwlan.tmp
  1300. goto _hdkjk
  1301. :_lskjw
  1302. goto _hdkjk
  1303. echo  [[ ] Add Packet Driver support (OdiPkt)>>%tmp%\_nwlan.tmp
  1304. echo. >>%tmp%\_nwlan.tmp
  1305. :_hdkjk
  1306. echo          [ OK ] [ Abort ] [? Back ]>>%tmp%\_nwlan.tmp
  1307. set wrb=1
  1308. if not "%p_dhcp%"=="" if not "%p_dhcp%"=="1" set wrb=2
  1309. if "%w_ok%"=="1" set wcb1=%p_pkt%
  1310. if not "%w_ok%"=="1" set w_ok=10
  1311. if not "%w_ok%"=="10" set w_ok=11
  1312. call w.bat box @%tmp%\_nwlan.tmp:w_tcp #%w_ok%,%p_timeout%
  1313. if errorlevel 3 goto _odibox
  1314. if errorlevel 2 goto _end
  1315. if "%wcb1%"=="0" set wcb1=
  1316. set p_dhcp=%wrb%
  1317. if "%w_ok%"=="11" set p_pkt=%wcb1%
  1318. if "%p_dhcp%"=="2" set p_dhcp=0
  1319. set w_ok=
  1320. :_notcp
  1321.  
  1322. if not "%p_prot%"=="tcp" goto _nosrv1loc
  1323. if "%p_slpwin%"=="1" goto _nosrv1loc
  1324. if not exist %ramdrv%\lan\srvloc.nlm if not exist %srcdrv%\lib\nwslp%p_clnt%.%arcext% goto _nosrv1loc
  1325. set wcb1=%p_statscp%
  1326. if "%wcb1%"=="" set wcb1=%p_slpstatscp%
  1327. set p_slpstatscp=
  1328. set wcb2=%p_statdas%
  1329. if "%wcb2%"=="" set wcb2=%p_slpstatdas%
  1330. set p_slpstatdas=
  1331. set wcb3=%p_slpdhcp%
  1332. set wcb4=%p_actdisc%
  1333. if "%wcb4%"=="" set wcb4=%p_slpactdisc%
  1334. set p_slpactdisc=
  1335. set wcb5=%p_broad%
  1336. if "%wcb5%"=="" set wcb5=%p_slpbroad%
  1337. set p_slpbroad=
  1338. if "%p_radius%"=="" set p_radius=%_slprad%
  1339. if "%p_radius%"=="" set p_radius=32
  1340. set p_slprad=
  1341. if "%p_mtu%"=="" set p_mtu=%p_slpmtu%
  1342. if "%p_mtu%"=="" set p_mtu=1400
  1343. set p_slpmtu=
  1344. if "%p_da1%"=="" set p_da1=%p_slpda1%
  1345. set p_slpda1=
  1346. if "%p_da2%"=="" set p_da2=%p_slpda2%
  1347. set p_slpda2=
  1348. if "%p_da3%"=="" set p_da3=%p_slpda3%
  1349. set p_slpda3=
  1350. if "%p_scp1%"=="" set p_scp1=%p_slpscp1%
  1351. set p_slpscp1=
  1352. if "%p_scp2%"=="" set p_scp2=%p_slpscp2%
  1353. set p_slpscp2=
  1354. if "%p_scp3%"=="" set p_scp3=%p_slpscp3%
  1355. set p_slpscp3=
  1356. if "%wcb4%"=="" set wcb4=1
  1357. call w.bat box @%0:w_srvloc #14,%p_timeout%
  1358. if errorlevel 3 goto _odibox
  1359. if errorlevel 2 goto _end
  1360. if "%wcb1%"=="0" set wcb1=
  1361. if "%wcb2%"=="0" set wcb2=
  1362. if "%wcb3%"=="0" set wcb3=
  1363. if "%wcb5%"=="0" set wcb5=
  1364. set p_statscp=%wcb1%
  1365. set p_statdas=%wcb2%
  1366. set p_slpdhcp=%wcb3%
  1367. set p_actdisc=%wcb4%
  1368. set p_broad=%wcb5%
  1369. :_nosrv1loc
  1370.  
  1371. set w_mname=%p_mname%
  1372. if "%w_mname%"=="" goto _newname
  1373. goto _nameok
  1374. echo %w_mname%>%tmp%\_nwlan.bak
  1375. lmod set tmachn=[1,2]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1376. call %tmp%\_nwlan.bat
  1377. if "%tmachn%"=="PC" goto _newname
  1378. goto _nameok
  1379. :_newname
  1380. echo.|time >%tmp%\_nwlan.bak
  1381. lmod /L1 /S;:,.ap set w_mname=PC[$!-2][$!-1][$!]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1382. call %tmp%\_nwlan.bat
  1383. del %tmp%\_nwlan.bat >nul
  1384. :_nameok
  1385. set tmachn=
  1386.  
  1387. if "%p_clnt%"=="16" goto _skp9clnt
  1388. if exist %ramdrv%\lan\trannta.nlm if exist %ramdrv%\lan\client%p_clnt%.nlm goto _skp9clnt
  1389. if not exist %srcdrv%\lib\nw%p_clnt%clnt.%arcext% if not "%p_user%"=="$" set p_user=!
  1390. :_skp9clnt
  1391. if "%p_clnt%"=="32" goto _skp8clnt
  1392. if exist %ramdrv%\lan\vlm.exe goto _skp8clnt
  1393. if not exist %srcdrv%\lib\nwodi%p_clnt%.%arcext% if not "%p_user%"=="$" set p_user=!
  1394. :_skp8clnt
  1395.  
  1396. if "%p_idwin%"=="1" goto _nobox
  1397. :_save
  1398. set wcb1=%w_netcfg%
  1399. set wcb2=%w_nicfrm%
  1400. set wcb3=%p_noscript%
  1401. set w_ok=11
  1402. if "%p_user%"=="" set w_ok=
  1403. if not "%p_user%"=="" call w.bat box @%0:w_param #%w_ok%,%p_timeout%
  1404. if "%p_user%"=="" call w.bat box @%0:w_param #%w_ok%
  1405. if "%wcb1%"=="0" set wcb1=
  1406. if "%wcb2%"=="0" set wcb2=
  1407. if "%wcb3%"=="0" set wcb3=
  1408. set w_ok=
  1409. set w_netcfg=%wcb1%
  1410. set w_nicfrm=%wcb2%
  1411. set p_noscript=%wcb3%
  1412. @if not "%w_pass%"=="" set w_passwd=%w_pass%
  1413. @if not "%w_pass%"=="" set w_pass=
  1414. if errorlevel 5 goto _odibox
  1415. if errorlevel 4 goto _end
  1416. if errorlevel 3 goto _help
  1417. if errorlevel 2 goto _savpro
  1418. :_nobox
  1419. :_nopasswd
  1420.  
  1421. if "%p_user%"=="$" goto _skp6clnt
  1422. if "%p_clnt%"=="16" if exist %ramdrv%\lan\ipxodi.com goto _skp6clnt
  1423. if "%p_clnt%"=="32" if "%p_prot%"=="ipx" if exist %ramdrv%\lan\ipx.nlm goto _skp6clnt
  1424. if "%p_clnt%"=="32" if "%p_prot%"=="tcp" if exist %ramdrv%\lan\tcpip.nlm goto _skp4clnt
  1425. if not exist %srcdrv%\lib\nw%p_prot%%p_clnt%.%arcext% goto _skp4clnt
  1426. call unpack.bat %srcdrv%\lib\nw%p_prot%%p_clnt%.%arcext%
  1427. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%p_prot%%p_clnt%.%arcext%'
  1428. :_skp4clnt
  1429. if "%p_clnt%"=="16" goto _skp6clnt
  1430. if "%p_prot%"=="ipx" goto _skp6clnt
  1431. if not "%macaddr%"=="" goto _skp6clnt
  1432. if exist %ramdrv%\lan\ipx.nlm goto _skp6clnt
  1433. if not exist %srcdrv%\lib\nwipx%p_clnt%.%arcext% goto _skp6clnt
  1434. call unpack.bat %srcdrv%\lib\nwipx%p_clnt%.%arcext%
  1435. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwipx%p_clnt%.%arcext%'
  1436. :_skp6clnt
  1437.  
  1438. if "%p_clnt%"=="16" goto _skp2clnt
  1439. if "%p_user%"=="$" goto _skp2clnt
  1440. if "%p_user%"=="!" goto _skp2clnt
  1441. if not "%p_prot%"=="tcp" goto _skp2clnt
  1442. if exist %ramdrv%\lan\srvloc.nlm goto _skp2clnt
  1443. if not exist %srcdrv%\lib\nwslp%p_clnt%.%arcext% goto _skp2clnt
  1444. call unpack.bat %srcdrv%\lib\nwslp%p_clnt%.%arcext%
  1445. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwslp%p_clnt%.%arcext%'
  1446. :_skp2clnt
  1447.  
  1448. if "%p_clnt%"=="32" goto _skp3clnt
  1449. if "%p_user%"=="$" goto _skp3clnt
  1450. if "%p_user%"=="!" goto _skp3clnt
  1451. if exist %ramdrv%\lan\vlm.exe goto _skp3clnt
  1452. if not exist %srcdrv%\lib\nwodi%p_clnt%.%arcext% goto _skp3clnt
  1453. call unpack.bat %srcdrv%\lib\nwodi%p_clnt%.%arcext%
  1454. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwodi%p_clnt%.%arcext%'
  1455. :_skp3clnt
  1456.  
  1457. if "%p_clnt%"=="16" goto _skp1clnt
  1458. if "%p_user%"=="$" goto _skp1clnt
  1459. if "%p_user%"=="!" goto _skp1clnt
  1460. if exist %ramdrv%\lan\trannta.nlm if exist %ramdrv%\lan\client%p_clnt%.nlm goto _skp1clnt
  1461. if not exist %srcdrv%\lib\nw%p_clnt%clnt.%arcext% goto _skp1clnt
  1462. call unpack.bat %srcdrv%\lib\nw%p_clnt%clnt.%arcext%
  1463. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%p_clnt%clnt.%arcext%'
  1464. :_skp1clnt
  1465.  
  1466. if "%p_clnt%"=="16" if not exist %ramdrv%\lan\vlm.exe if not "%p_user%"=="$" set p_user=!
  1467. if "%p_clnt%"=="32" if not exist %ramdrv%\lan\client%p_clnt%.nlm if not "%p_user%"=="$" set p_user=!
  1468. if "%p_clnt%"=="32" if not exist %ramdrv%\lan\trannta.nlm if not "%p_user%"=="$" set p_user=!
  1469. if "%p_clnt%"=="16" if not exist %ramdrv%\lan\ipxodi.com set p_user=$
  1470. if "%p_clnt%"=="32" if "%p_prot%"=="tcp" if not exist %ramdrv%\lan\tcpip.nlm set p_user=$
  1471. if "%p_clnt%"=="32" if "%p_prot%"=="ipx" if not exist %ramdrv%\lan\ipx.nlm set p_user=$
  1472. if "%p_clnt%"=="32" if "%p_prot2%"=="ipx" if not exist %ramdrv%\lan\ipx.nlm set p_prot2=
  1473.  
  1474. :_nwprt1
  1475.  
  1476. if exist %ramdrv%\lan\net.cfg del %ramdrv%\lan\net.cfg >nul
  1477. if not exist %ramdrv%\lan\net%p_clnt%.cfg goto _nqcfg
  1478. type %ramdrv%\lan\net%p_clnt%.cfg >%ramdrv%\lan\net.cfg
  1479. :_nqcfg
  1480. if not exist %ramdrv%\etc\net.cfg goto _nqcfg2
  1481. type %ramdrv%\etc\net.cfg >%ramdrv%\lan\net.cfg
  1482. :_nqcfg2
  1483. if not exist %ramdrv%\etc\net%p_clnt%.cfg goto _nqcfg3
  1484. type %ramdrv%\etc\net%p_clnt%.cfg >%ramdrv%\lan\net.cfg
  1485. :_nqcfg3
  1486. if not exist %ramdrv%\lan\net.cfg %0 : _error could not find '%ramdrv%\lan\net.cfg'
  1487. xgrep -sv "^[:s]*;" %ramdrv%\lan\net.cfg >>%tmp%\net.cfg
  1488. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %tmp%\net.cfg
  1489. if not exist %tmp%\net.cfg goto _nqcfg4
  1490. type %tmp%\net.cfg >%ramdrv%\lan\net.cfg
  1491. del %tmp%\net.cfg >nul
  1492. :_nqcfg4
  1493.  
  1494. xgrep -svy "^[:s]+Preferred[:s]+Server[:s]*" <%ramdrv%\lan\net.cfg >%tmp%\_nwlan.bak
  1495. xgrep -svy "^[:s]+Preferred[:s]+Tree[:s]*" <%tmp%\_nwlan.bak >%ramdrv%\lan\net.cfg
  1496. xgrep -svy "^[:s]+NetWare[:s]+Protocol[:s]*" <%ramdrv%\lan\net.cfg >%tmp%\_nwlan.bak
  1497. xgrep -svy "^[:s]+Name[:s]+Context[:s]*" <%tmp%\_nwlan.bak >%ramdrv%\lan\net.cfg
  1498. xgrep -svy "^[:s]+First[:s]+Network[:s]+Drive[:s]*" <%ramdrv%\lan\net.cfg >%tmp%\_nwlan.bak
  1499. type %tmp%\_nwlan.bak >%ramdrv%\lan\net.cfg
  1500. if "%p_ndsbind%"=="" set p_ndsbind=NDS
  1501. echo NetWare Protocol = %p_ndsbind%>%tmp%\_nwlan.tmp
  1502. if "%p_tree%"=="" goto _hf2fk
  1503. echo Preferred Tree = %p_tree%>>%tmp%\_nwlan.tmp
  1504. :_hf2fk
  1505. if "%p_server%"=="" goto _hffk
  1506. echo Preferred Server = %p_server%>>%tmp%\_nwlan.tmp
  1507. :_hffk
  1508. echo Name Context = "%p_context%">>%tmp%\_nwlan.tmp
  1509. if "%p_drive%"=="" set p_drive=f
  1510. echo First Network Drive = %p_drive%>>%tmp%\_nwlan.tmp
  1511. lmod /L* [~32][~32][~32][~32][]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\net.cfg
  1512.  
  1513. if "%w_odi%"=="32" goto _nolnkdrv
  1514. echo.>>%ramdrv%\lan\net.cfg
  1515. echo Link Driver %p_nic%>>%ramdrv%\lan\net.cfg
  1516. :_nolnkdrv
  1517.  
  1518. if "%w_odi%"=="32" goto _noniccfg
  1519. if exist %ramdrv%\lan\%p_nic%.cfg del %ramdrv%\lan\%p_nic%.cfg >nul
  1520. if not exist %ramdrv%\etc\%p_nic%.cfg goto _ncf3
  1521. type %ramdrv%\etc\%p_nic%.cfg >%ramdrv%\lan\%p_nic%.cfg
  1522. :_ncf3
  1523. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\%p_nic%.cfg
  1524. if not exist %ramdrv%\lan\%p_nic%.cfg goto _noniccfg
  1525. xgrep -sv "^[:s]*;" %ramdrv%\lan\%p_nic%.cfg >%tmp%\_nwlan.bak
  1526. xgrep -svy "^link[:s]+driver[:s]+%p_nic%[:s]*$" <%tmp%\_nwlan.bak | lmod /L* /S [~32][~32][~32][~32][$1:$!]>>%ramdrv%\lan\net.cfg
  1527. :_noniccfg
  1528.  
  1529. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _nldr17
  1530. if not exist %ramdrv%\lan\%p_prot%%p_clnt%.ldr goto _nldr17
  1531. type %ramdrv%\lan\%p_prot%%p_clnt%.ldr >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1532. :_nldr17
  1533. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _nldr27
  1534. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%%w_tp%.ldr goto _nldr27
  1535. type %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%%w_tp%.ldr >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1536. :_nldr27
  1537. if not exist %ramdrv%\etc\%p_prot%%p_clnt%.ldr goto _nldr15
  1538. type %ramdrv%\etc\%p_prot%%p_clnt%.ldr >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1539. :_nldr15
  1540. if not exist %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%%w_tp%.ldr goto _nldr37
  1541. type %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%%w_tp%.ldr >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1542. :_nldr37
  1543. if not exist %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%.ldr goto _nldr12
  1544. type %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%.ldr >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1545. :_nldr12
  1546. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _noprofrm
  1547. xgrep -sv "^[:s]*;" %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >%tmp%\_nwlan.tmp
  1548. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %tmp%\_nwlan.tmp
  1549. if not exist %tmp%\_nwlan.tmp goto _noldr13
  1550. lmod /L* []<%tmp%\_nwlan.tmp >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.tmp
  1551. :_noldr13
  1552. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.tmp goto _noprofrm
  1553. type %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.tmp >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1554. del %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.tmp >nul
  1555. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr
  1556. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _noprofrm
  1557. if "%w_odi%"=="16" goto _protfrm
  1558. if "%p_clnt%"=="16" goto _protfrm
  1559. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1560. lmod /L* @lmod /L* [] [~91][~93][~60]%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr [~62][~62]%tmp%\_nwlan.tmp <%ramdrv%\lan\%p_nic%.bat >%tmp%\_nwlan.bat
  1561. if exist %tmp%\_nwlan.bat call %tmp%\_nwlan.bat
  1562. type %tmp%\_nwlan.tmp >%ramdrv%\lan\%p_nic%.bat
  1563. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1564. if exist %tmp%\_nwlan.bat del %tmp%\_nwlan.bat >nul
  1565. goto _noprofrm
  1566. :_protfrm
  1567. xgrep -sv "^[:s]*;" %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >%tmp%\_nwlan.bak
  1568. xgrep -svy "^link[:s]+driver[:s]+%p_nic%[:s]*$" <%tmp%\_nwlan.bak | lmod /L* /S [~32][~32][~32][~32][$1:$!]>>%ramdrv%\lan\net.cfg
  1569. :_noprofrm
  1570.  
  1571. set w_prot=
  1572. :_netprt
  1573.  
  1574. echo.>>%ramdrv%\lan\net.cfg
  1575. if "%p_prot%"=="ipx" goto _q3ipx
  1576. echo Protocol TCPIP >>%ramdrv%\lan\net.cfg
  1577. goto _q0ipx
  1578. :_q3ipx
  1579. echo Protocol IPX >>%ramdrv%\lan\net.cfg
  1580. :_q0ipx
  1581.  
  1582. if exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg del %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg >nul
  1583. if not exist %ramdrv%\lan\%p_prot%%p_clnt%.cfg goto _ncf17
  1584. type %ramdrv%\lan\%p_prot%%p_clnt%.cfg >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg
  1585. :_ncf17
  1586. if not exist %ramdrv%\etc\%p_prot%%p_clnt%.cfg goto _ncf15
  1587. type %ramdrv%\etc\%p_prot%%p_clnt%.cfg >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg
  1588. :_ncf15
  1589. if not exist %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%.cfg goto _ncf12
  1590. type %ramdrv%\etc\%p_prot%%w_odi%%p_clnt%.cfg >%ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg
  1591. :_ncf12
  1592. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg goto _noprotcfg
  1593. xgrep -sv "^[:s]*;" %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.cfg >%tmp%\_nwlan.bak
  1594. xgrep -svy "^protocol[:s]+.+$" <%tmp%\_nwlan.bak | lmod /L* /S [~32][~32][~32][~32][$1:$!]>>%ramdrv%\lan\net.cfg
  1595. :_noprotcfg
  1596.  
  1597. if not exist %ramdrv%\etc\hosts goto _nhst12
  1598. type %ramdrv%\etc\hosts >%ramdrv%\lan\hosts
  1599. :_nhst12
  1600. if not exist %ramdrv%\etc\lmhosts goto _nhst14
  1601. type %ramdrv%\etc\lmhosts >%ramdrv%\lan\lmhosts
  1602. :_nhst14
  1603. if not exist %ramdrv%\etc\networks goto _nhst16
  1604. type %ramdrv%\etc\networks >%ramdrv%\lan\networks
  1605. :_nhst16
  1606. if not exist %ramdrv%\etc\protocol goto _nhst17
  1607. type %ramdrv%\etc\protocol >%ramdrv%\lan\protocol
  1608. :_nhst17
  1609. if not exist %ramdrv%\etc\services goto _nhst18
  1610. type %ramdrv%\etc\services >%ramdrv%\lan\services
  1611. :_nhst18
  1612. if not exist %ramdrv%\etc\gateways goto _nhst19
  1613. type %ramdrv%\etc\gateways >%ramdrv%\lan\gateways
  1614. :_nhst19
  1615. if "%p_prot%"=="ipx" goto _skipip1
  1616. if "%p_dhcp%"=="1" goto _dhcp1
  1617. echo If_Configuration = Static>%tmp%\_nwlan.tmp
  1618. echo Path Tcp_Cfg = %ramdrv%\lan\>>%tmp%\_nwlan.tmp
  1619. if "%p_ip%"=="" %0 : _error IP_address cannot be empty when DHCP is enabled
  1620. echo %p_ip% >%tmp%\_nwlan.bak
  1621. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1622. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_ip%'
  1623. call %tmp%\_nwlan.bat
  1624. echo Ip_Address = %wbat%>>%tmp%\_nwlan.tmp
  1625. if "%p_subnet%"=="" %0 : _error Subnetmask cannot be empty when DHCP is enabled
  1626. echo %p_subnet% >%tmp%\_nwlan.bak
  1627. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1628. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_subnet%'
  1629. call %tmp%\_nwlan.bat
  1630. echo Ip_Netmask = %wbat%>>%tmp%\_nwlan.tmp
  1631. if "%p_gway%"=="" goto _nogatew
  1632. echo %p_gway% >%tmp%\_nwlan.bak
  1633. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1634. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_gway%'
  1635. call %tmp%\_nwlan.bat
  1636. echo Ip_Router = %wbat%>>%tmp%\_nwlan.tmp
  1637. lmod /L* [~32][~32][~32][~32][]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\net.cfg
  1638. :_nogatew
  1639. :_dhcp1
  1640. if not exist %ramdrv%\etc\resolv.cfg goto _nres2
  1641. type %ramdrv%\etc\resolv.cfg >%ramdrv%\lan\resolv.cfg
  1642. :_nres2
  1643. if "%p_domain%"=="" goto _nodomsuf
  1644. echo %p_domain% >%tmp%\_nwlan.bak
  1645. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1646. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_domain%'
  1647. call %tmp%\_nwlan.bat
  1648. echo domain %wbat%>>%ramdrv%\lan\resolv.cfg
  1649. :_nodomsuf
  1650. if "%p_dns1%"=="" set p_dns1=%p_dns%
  1651. set p_dns=
  1652. if "%p_dns1%"=="" goto _nodns
  1653. if "%p_dns1%"=="0.0.0.0" goto _nodns
  1654. echo %p_dns1% >%tmp%\_nwlan.bak
  1655. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1656. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_dns1%'
  1657. call %tmp%\_nwlan.bat
  1658. echo nameserver %wbat%>>%ramdrv%\lan\resolv.cfg
  1659. :_nodns
  1660. if "%p_dns2%"=="" goto _no2dns
  1661. if "%p_dns2%"=="0.0.0.0" goto _no2dns
  1662. echo %p_dns2% >%tmp%\_nwlan.bak
  1663. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1664. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_dns2%'
  1665. call %tmp%\_nwlan.bat
  1666. echo nameserver %wbat%>>%ramdrv%\lan\resolv.cfg
  1667. :_no2dns
  1668. if "%p_dns3%"=="" goto _no3dns
  1669. if "%p_dns3%"=="0.0.0.0" goto _no3dns
  1670. echo %p_dns3% >%tmp%\_nwlan.bak
  1671. lmod set wbat=[$1]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  1672. if errorlevel 1 if not errorlevel 2 %0 : _error lmod '%p_dns3%'
  1673. call %tmp%\_nwlan.bat
  1674. echo nameserver %wbat%>>%ramdrv%\lan\resolv.cfg
  1675. :_no3dns
  1676. if not "%p_dhcp%"=="1" goto _skipip1
  1677. echo If_Configuration = Dhcp>%tmp%\_nwlan.tmp
  1678. echo Path Tcp_Cfg = %ramdrv%\lan\>>%tmp%\_nwlan.tmp
  1679. lmod /L* [~32][~32][~32][~32][]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\net.cfg
  1680. :_skipip1
  1681.  
  1682. if not "%w_prot%"=="" goto _prtokw
  1683. if "%p_prot%"=="tcp" if "%p_prot2%"=="ipx" set w_prot=%p_prot%
  1684. if not "%w_prot%"=="" set p_prot=%p_prot2%
  1685. if not "%w_prot%"=="" goto _netprt
  1686. :_prtokw
  1687. if not "%w_prot%"=="" set p_prot=%w_prot%
  1688. set w_prot=
  1689.  
  1690. if "%w_odi%"=="16" goto _nonicfrm
  1691. if not exist %ramdrv%\etc\%p_nic%.ldr goto _nldr3
  1692. type %ramdrv%\etc\%p_nic%.ldr >%ramdrv%\lan\%p_nic%.ldr
  1693. :_nldr3
  1694. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\%p_nic%.ldr
  1695. if not exist %ramdrv%\lan\%p_nic%.ldr goto _nonicfrm
  1696. xgrep -sv "^[:s]*;" %ramdrv%\lan\%p_nic%.ldr | lmod /L* []>%ramdrv%\lan\%p_nic%.tmp
  1697. type %ramdrv%\lan\%p_nic%.tmp >%ramdrv%\lan\%p_nic%.ldr
  1698. del %ramdrv%\lan\%p_nic%.tmp >nul
  1699. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\%p_nic%.ldr
  1700. if not exist %ramdrv%\lan\%p_nic%.ldr goto _nonicfrm
  1701. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1702. lmod /L* @lmod [] [~91][~93][~60]%ramdrv%\lan\%p_nic%.ldr [~62][~62]%tmp%\_nwlan.tmp <%ramdrv%\lan\%p_nic%.bat >%tmp%\_nwlan.bat
  1703. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %tmp%\_nwlan.bat
  1704. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1705. if exist %tmp%\_nwlan.bat call %tmp%\_nwlan.bat
  1706. if not exist %tmp%\_nwlan.tmp goto _jpr3
  1707. type %tmp%\_nwlan.tmp >%ramdrv%\lan\%p_nic%.bat
  1708. :_jpr3
  1709. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1710. if exist %tmp%\_nwlan.bat del %tmp%\_nwlan.bat >nul
  1711. :_nonicfrm
  1712.  
  1713. if not "%p_clnt%"=="32" goto _nsrvloc
  1714. if not "%p_prot%"=="tcp" goto _nsrvloc
  1715. echo.>>%ramdrv%\lan\net.cfg
  1716. echo SrvLoc >>%ramdrv%\lan\net.cfg
  1717.  
  1718. echo. >%tmp%\_nwlan.tmp
  1719. if "%p_scp1%"=="" goto _n1scp
  1720. echo Scope = %p_scp1% >>%tmp%\_nwlan.tmp
  1721. :_n1scp
  1722. if "%p_scp2%"=="" goto _n2scp
  1723. echo Scope = %p_scp2% >>%tmp%\_nwlan.tmp
  1724. :_n2scp
  1725. if "%p_scp3%"=="" goto _n3scp
  1726. echo Scope = %p_scp3% >>%tmp%\_nwlan.tmp
  1727. :_n3scp
  1728. if "%p_da1%"=="" goto _n1da
  1729. echo Directory Agent = %p_da1% >>%tmp%\_nwlan.tmp
  1730. :_n1da
  1731. if "%p_da2%"=="" goto _n2da
  1732. echo Directory Agent = %p_da2% >>%tmp%\_nwlan.tmp
  1733. :_n2da
  1734. if "%p_da3%"=="" goto _n3da
  1735. echo Directory Agent = %p_da3% >>%tmp%\_nwlan.tmp
  1736. :_n3da
  1737. if "%p_statscp%"=="1" goto _slp1st
  1738. echo Static Scopes = FALSE >>%tmp%\_nwlan.tmp
  1739. goto _slp2st
  1740. :_slp1st
  1741. echo Static Scopes = TRUE >>%tmp%\_nwlan.tmp
  1742. :_slp2st
  1743. if "%p_statdas%"=="1" goto _slp1das
  1744. echo Static DAs = FALSE >>%tmp%\_nwlan.tmp
  1745. goto _slp2das
  1746. :_slp1das
  1747. echo Static DAs = TRUE >>%tmp%\_nwlan.tmp
  1748. :_slp2das
  1749. if "%p_slpdhcp%"=="1" goto _slp1dhcp
  1750. echo DHCP = FALSE >>%tmp%\_nwlan.tmp
  1751. goto _slp2dhcp
  1752. :_slp1dhcp
  1753. echo DHCP = TRUE >>%tmp%\_nwlan.tmp
  1754. :_slp2dhcp
  1755. if "%p_actdisc%"=="1" goto _slp1disc
  1756. echo Active Discovery = FALSE >>%tmp%\_nwlan.tmp
  1757. goto _slp2disc
  1758. :_slp1disc
  1759. echo Active Discovery = TRUE >>%tmp%\_nwlan.tmp
  1760. :_slp2disc
  1761. if "%p_broad%"=="1" goto _slp1brd
  1762. echo Use Broadcast for Multicast = FALSE >>%tmp%\_nwlan.tmp
  1763. goto _slp2brd
  1764. :_slp1brd
  1765. echo Use Broadcast for Multicast = TRUE >>%tmp%\_nwlan.tmp
  1766. :_slp2brd
  1767. if "%p_radius%"=="" goto _n1rad
  1768. echo Multicast Radius = %p_radius% >>%tmp%\_nwlan.tmp
  1769. :_n1rad
  1770. if "%p_mtu%"=="" goto _n1mtu
  1771. echo MTU = %p_mtu% >>%tmp%\_nwlan.tmp
  1772. :_n1mtu
  1773. lmod /L2* [~32][~32][~32][~32][]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\net.cfg
  1774.  
  1775. if not exist %ramdrv%\etc\srvloc.cfg goto _nsloc1
  1776. type %ramdrv%\etc\srvloc.cfg >%ramdrv%\lan\srvloc.cfg
  1777. :_nsloc1
  1778. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\srvloc.cfg
  1779. if not exist %ramdrv%\lan\srvloc.cfg goto _nsrvloc
  1780. xgrep -sv "^[:s]*;" %ramdrv%\lan\srvloc.cfg >%tmp%\_nwlan.tmp
  1781. xgrep -svy "^srvloc[:s]*$" <%tmp%\_nwlan.tmp | lmod /L* /S [~32][~32][~32][~32][$1:$!]>>%ramdrv%\lan\net.cfg
  1782. :_nsrvloc
  1783.  
  1784. if exist %ramdrv%\lan\pkt.bat del %ramdrv%\lan\pkt.bat >nul
  1785. if not "%p_pkt%"=="1" if not "%p_clnt%"=="%w_odi%" if not "%p_clnt%"=="32" goto _nopktfrm
  1786. if not "%p_pkt%"=="1" if exist %ramdrv%\lan\ipx.nlm goto _nopktfrm
  1787. if not "%p_pkt%"=="1" if exist %srcdrv%\lib\nwipx%p_clnt%.%arcext% goto _nopktfrm
  1788. if "%p_clnt%"=="32" if "%p_clnt%"=="%w_odi%" if not "%p_8022%"=="1" goto _nopktfrm
  1789. if "%p_clnt%"=="32" if "%p_clnt%"=="%w_odi%" if not "%p_8023%"=="1" goto _nopktfrm
  1790. if "%p_clnt%"=="32" if "%p_clnt%"=="%w_odi%" if not "%p_ii%"=="1" goto _nopktfrm
  1791. if "%p_clnt%"=="32" if "%p_clnt%"=="%w_odi%" if not "%p_snap%"=="1" goto _nopktfrm
  1792. if "%p_pkt%"=="1" echo NWLAN: Prepare support for Packet Driver
  1793.  
  1794. if exist %ramdrv%\lan\odipkt.com goto _skp2opkt
  1795. if not exist %srcdrv%\lib\nwpkt.%arcext% goto _skp2opkt
  1796. call unpack.bat %srcdrv%\lib\nwpkt.%arcext%
  1797. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwpkt.%arcext%'
  1798. :_skp2opkt
  1799. if "%p_pkt%"=="1" if not exist %ramdrv%\lan\odipkt.com %0 : _error missing '%srcdrv%\lib\nwpkt.%arcext%'
  1800.  
  1801. if exist %ramdrv%\lan\lsl.com goto _skp2lsl
  1802. if not exist %srcdrv%\lib\nw1616.%arcext% goto _skp2lsl
  1803. call unpack.bat %srcdrv%\lib\nw1616.%arcext%
  1804. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw1616.%arcext%'
  1805. :_skp2lsl
  1806. if "%p_pkt%"=="1" if not exist %ramdrv%\lan\lsl.com %0 : _error missing '%srcdrv%\lib\nw1616.%arcext%'
  1807.  
  1808. if not "%p_clnt%"=="32" goto _dpkt2
  1809. if "%w_odi%"=="16" goto _dpkt112
  1810. if exist %ramdrv%\lan\pdosmlid.nlm goto _dpkt
  1811. if not exist %srcdrv%\lib\nw%p_clnt%pkt.%arcext% goto _dpkt
  1812. if "%p_pkt%"=="1" echo NWLAN: Prepare support for Packet Driver with %p_clnt% bit Client (%w_odi%)
  1813. if not exist %srcdrv%\lib\nw%p_clnt%pkt.%arcext% %0 : _error missing '%srcdrv%\lib\nw%p_clnt%pkt.%arcext%'
  1814. call unpack.bat %srcdrv%\lib\nw%p_clnt%pkt.%arcext%
  1815. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%p_clnt%pkt.%arcext%'
  1816. :_dpkt
  1817. if exist %ramdrv%\lan\net%p_topo%.cfg goto _dpkt2
  1818. if not exist %srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext% goto _dpkt2
  1819. if "%p_pkt%"=="1" echo NWLAN: Prepare support for Topology '%p_topo%'-Packet Driver with %p_clnt% bit Client
  1820. if not exist %srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext% %0 : _error missing '%srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext%'
  1821. call unpack.bat %srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext%
  1822. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%p_clnt%pkt%w_tp%.%arcext%'
  1823. goto _dpkt2
  1824. :_dpkt112
  1825. if exist %ramdrv%\lan\n16odi.com goto _dpkt2
  1826. if not exist %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext% goto _dpkt2
  1827. if "%p_pkt%"=="1" echo NWLAN: Prepare support for Packet Driver with %p_clnt% bit Client (%w_odi%)
  1828. if not exist %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext% %0 : _error missing '%srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%'
  1829. call unpack.bat %srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%
  1830. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nw%w_odi%%p_clnt%.%arcext%'
  1831. :_dpkt2
  1832.  
  1833. if not "%p_pkt%"=="1" if "%p_clnt%"=="%w_odi%" if not "%p_clnt%"=="32" goto _nopktfrm
  1834.  
  1835. if exist %tmp%\_nwlan.frm del %tmp%\_nwlan.frm >nul
  1836. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  1837. if not exist %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr goto _npktq7
  1838. type %ramdrv%\lan\%p_prot%%w_odi%%p_clnt%.ldr >%tmp%\_nwlan.frm
  1839. :_npktq7
  1840. if not "%w_odi%"=="32" goto _npdcfg
  1841. if not exist %ramdrv%\etc\net%p_topo%.cfg goto _npdcfg1
  1842. type %ramdrv%\etc\net%p_topo%.cfg >%ramdrv%\lan\net%p_topo%.cfg
  1843. :_npdcfg1
  1844. if not exist %ramdrv%\lan\net%p_topo%.cfg goto _npdcfg
  1845. set w_frame=
  1846. if "%p_topo%"=="ether" set w_frame=eth
  1847. if "%p_topo%"=="token" set w_frame=tok
  1848. if "%p_topo%"=="fddi" set w_frame=fddi
  1849. echo.>>%ramdrv%\lan\net.cfg
  1850. echo Link Driver Pdos%w_frame% >>%ramdrv%\lan\net.cfg
  1851. xgrep -sv "^[:s]*;" %ramdrv%\lan\net%p_topo%.cfg >%tmp%\_nwlan.frm
  1852. xgrep -svy "^link[:s]+driver[:s]+pdos%w_frame%[:s]*$" <%tmp%\_nwlan.frm >%tmp%\_nwlan.tmp
  1853. if "%p_lmsb%"=="" goto _nmsb45
  1854. if not "%p_topo%"=="token" if not "%p_lsbmsb%"=="1" goto _nmsb45
  1855. lmod /L* []<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bak
  1856. tfind "frame" "%p_lmsb%" <%tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  1857. tfind /e /v "frame" "%p_lmsb%" <%tmp%\_nwlan.bak >%tmp%\_nwlan.txt
  1858. if errorlevel 1 goto _nmsb47
  1859. goto _nmsb45
  1860. :_nmsb47
  1861. tfind "frame" <%tmp%\_nwlan.txt >%tmp%\_nwlan.bak
  1862. if errorlevel 1 goto _nmsb46
  1863. lmod /L* [] %p_lmsb%<%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  1864. tfind /v "frame" <%tmp%\_nwlan.txt >>%tmp%\_nwlan.tmp
  1865. goto _nmsb45
  1866. :_nmsb46
  1867. type %tmp%\_nwlan.txt >>%tmp%\_nwlan.tmp
  1868. :_nmsb45
  1869. lmod /L* /S [~32][~32][~32][~32][$1:$!]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\net.cfg
  1870. :_npdcfg
  1871. if not exist %tmp%\_nwlan.frm goto _npktq2
  1872. tfind /e "frame" <%tmp%\_nwlan.frm >%tmp%\_nwlan.tmp
  1873. set w_frame=
  1874. if errorlevel 1 set w_frame=1
  1875. if errorlevel 2 set w_frame=2
  1876. if errorlevel 4 set w_frame=4
  1877. if "%w_frame%"=="" goto _npktq3
  1878. if not "%w_odi%"=="32" goto _npktq4
  1879. if "%p_topo%"=="ether" if not "%w_frame%"=="4" goto _npktq3
  1880. if "%p_topo%"=="token" if "%w_frame%"=="1" goto _npktq3
  1881. if "%p_topo%"=="fddi" if "%w_frame%"=="1" goto _npktq3
  1882. :_npktq4
  1883. lmod /L* /N0 [#] [] <%tmp%\_nwlan.tmp >%tmp%\_nwlan.bak
  1884. set w_frame=_snap
  1885. if "%p_topo%"=="ether" set w_frame=_ii
  1886. tfind "%w_frame%" <%tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  1887. if errorlevel 1 goto _npktq3
  1888. lmod [$1] 0x60 <%tmp%\_nwlan.tmp >%ramdrv%\lan\odipkt.ldr
  1889. goto _npktq2
  1890. :_npktq3
  1891. echo NWLAN: Packet Driver is missing frame type
  1892. @pause
  1893. :_npktq2
  1894. set w_frame=
  1895.  
  1896. set w_wattcp=%g_wattcp%
  1897. if not "%p_wattcp%"=="" set w_wattcp=%p_wattcp%
  1898. if not "%w_wattcp%"=="" if not exist %w_wattcp%\wattcp.cfg if exist %ramdrv%\lan\wattcp.cfg copy %ramdrv%\lan\wattcp.cfg %w_wattcp%\wattcp.cfg >nul
  1899. if "%w_wattcp%"=="" set w_wattcp=%ramdrv%\lan
  1900.  
  1901. if exist %w_wattcp%\wattcp.cfg goto _dh3cp
  1902. echo print=" " >>%w_wattcp%\wattcp.cfg
  1903. echo print="WATTCP: NwDsk WATTCP Configuration" >>%w_wattcp%\wattcp.cfg
  1904. echo print=" " >>%w_wattcp%\wattcp.cfg
  1905. :_dh3cp
  1906.  
  1907. if "%p_dhcp%"=="1" goto _dh4cp
  1908. set w_ok=%p_ip%
  1909. if "%w_ok%"=="0.0.0.0" set w_ok=
  1910. inifile %w_wattcp%\wattcp.cfg [] my_ip=%w_ok%
  1911. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1912. inifile %w_wattcp%\tcp.cfg [] my_ip=%w_ok%
  1913. goto _dh5cp
  1914. :_dh4cp
  1915. set w_ok=DHCP
  1916. inifile %w_wattcp%\wattcp.cfg [] my_ip=%w_ok%
  1917. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1918. inifile %w_wattcp%\tcp.cfg [] my_ip=%w_ok%
  1919. set w_ok=$(TEMP)\W32DHCP.TMP
  1920. inifile %w_wattcp%\wattcp.cfg [] dhcp.config=%w_ok%
  1921. inifile %w_wattcp%\tcp.cfg [] dhcp.config=%w_ok%
  1922. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1923. :_dh5cp
  1924. set w_ok=%w_mname%
  1925. inifile %w_wattcp%\wattcp.cfg [] hostname="%w_ok%"
  1926. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1927. inifile %w_wattcp%\tcp.cfg [] hostname="%w_ok%"
  1928. set w_ok=%p_subnet%
  1929. if "%w_ok%"=="0.0.0.0" set w_ok=
  1930. inifile %w_wattcp%\wattcp.cfg [] netmask=%w_ok%
  1931. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1932. inifile %w_wattcp%\tcp.cfg [] netmask=%w_ok%
  1933. if "%p_dns1%"=="" set p_dns1=%p_dns%
  1934. set p_dns=
  1935. set w_ok=%p_dns1%
  1936. if "%w_ok%"=="0.0.0.0" set w_ok=
  1937. inifile %w_wattcp%\wattcp.cfg [] nameserver=%w_ok%
  1938. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1939. inifile %w_wattcp%\tcp.cfg [] nameserver=%w_ok%
  1940. set w_ok=%p_dns2%
  1941. if "%w_ok%"=="0.0.0.0" set w_ok=
  1942. if "%w_ok%"=="" goto _ndns2
  1943. echo nameserver=%w_ok%>>%w_wattcp%\wattcp.cfg
  1944. echo nameserver=%w_ok%>>%w_wattcp%\tcp.cfg
  1945. :_ndns2
  1946. set w_ok=%p_dns3%
  1947. if "%w_ok%"=="0.0.0.0" set w_ok=
  1948. if "%w_ok%"=="" goto _ndns3
  1949. echo nameserver=%w_ok%>>%w_wattcp%\wattcp.cfg
  1950. echo nameserver=%w_ok%>>%w_wattcp%\tcp.cfg
  1951. :_ndns3
  1952. set w_ok=%p_gway%
  1953. if "%w_ok%"=="0.0.0.0" set w_ok=
  1954. inifile %w_wattcp%\wattcp.cfg [] gateway=%w_ok%
  1955. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1956. inifile %w_wattcp%\tcp.cfg [] gateway=%w_ok%
  1957. set w_ok=%p_domain%
  1958. inifile %w_wattcp%\wattcp.cfg [] domainslist="%w_ok%"
  1959. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1960. inifile %w_wattcp%\tcp.cfg [] domainslist="%w_ok%"
  1961. set w_ok=8192
  1962. inifile %w_wattcp%\wattcp.cfg [] txbufsize=%w_ok%
  1963. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1964. inifile %w_wattcp%\tcp.cfg [] txbufsize=%w_ok%
  1965. set w_ok=8192
  1966. inifile %w_wattcp%\wattcp.cfg [] rxbufsize=%w_ok%
  1967. if errorlevel 1 if not errorlevel 2 %0 : _error problem writing %w_wattcp%\wattcp.cfg
  1968. inifile %w_wattcp%\tcp.cfg [] rxbufsize=%w_ok%
  1969.  
  1970. echo if exist odipkt.com %%ldh%% odipkt.com >%tmp%\_nwlan.bak
  1971. lmod [][-]<%tmp%\_nwlan.bak >%ramdrv%\lan\pkt.bat
  1972. if not exist %ramdrv%\etc\odipkt.ldr goto _nldr5
  1973. type %ramdrv%\etc\odipkt.ldr >%ramdrv%\lan\odipkt.ldr
  1974. :_nldr5
  1975. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\etc\wattcp.cfg
  1976. if not exist %ramdrv%\etc\wattcp.cfg goto _ncf5
  1977. type %ramdrv%\etc\wattcp.cfg >%w_wattcp%\wattcp.cfg
  1978. :_ncf5
  1979. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\etc\tcp.cfg
  1980. if not exist %ramdrv%\etc\tcp.cfg goto _ncf35
  1981. type %ramdrv%\etc\tcp.cfg >%w_wattcp%\tcp.cfg
  1982. :_ncf35
  1983. if not exist %ramdrv%\lan\odipkt.ldr goto _pktok
  1984. xgrep -sv "^[:s]*;" %ramdrv%\lan\odipkt.ldr | lmod /L* []>%ramdrv%\lan\odipkt.tmp
  1985. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\odipkt.tmp
  1986. if not exist %ramdrv%\lan\odipkt.tmp goto _nldr6
  1987. type %ramdrv%\lan\odipkt.tmp >%ramdrv%\lan\odipkt.ldr
  1988. del %ramdrv%\lan\odipkt.tmp >nul
  1989. :_nldr6
  1990. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\odipkt.ldr
  1991. if not exist %ramdrv%\lan\odipkt.ldr goto _pktok
  1992. lmod [~32][][-]<%ramdrv%\lan\odipkt.ldr >>%ramdrv%\lan\pkt.bat
  1993. :_pktok
  1994. lmod [$7][+]![$7]!<%ramdrv%\lan\pkt.bat >%tmp%\_nwlan.tmp
  1995. tfind "0x" <%tmp%\_nwlan.tmp >nul
  1996. if errorlevel 1 goto _dec1pkt
  1997. lmod /SxX basecvrt [$2] 10 16 [~62] %tmp%\_nwlan.tmp <%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  1998. call %tmp%\_nwlan.bat
  1999. :_dec1pkt
  2000. tfind "!!" <%tmp%\_nwlan.tmp >nul
  2001. if errorlevel 1 goto _dec2pkt
  2002. echo 105 >%tmp%\_nwlan.tmp
  2003. :_dec2pkt
  2004. lmod echo Z [~124] lmod [~91][~126][$1][~93][~62] %tmp%\_nwlan.tmp <%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  2005. call %tmp%\_nwlan.bat
  2006. lmod [~180][~05][~205][$1][~195][-] <%tmp%\_nwlan.tmp >%ramdrv%\lan\odipktu.com
  2007. type %ramdrv%\lan\pkt.bat >%tmp%\_nwlan.tmp
  2008. echo @if "%%debug%%"=="" echo off>%ramdrv%\lan\pkt.bat
  2009. echo set wattcp_cfg=%w_wattcp%\wattcp.cfg>>%ramdrv%\lan\pkt.bat
  2010. type %tmp%\_nwlan.tmp >>%ramdrv%\lan\pkt.bat
  2011. echo. >>%ramdrv%\lan\pkt.bat
  2012. echo if not "%%errorlevel%%"=="" if not "%%errorlevel%%"=="0" echo %%errorlevel%% >>%ramdrv%\lan\pkt.bat
  2013. if exist %w_wattcp%\wattcp.cfg set wattcp.cfg=%w_wattcp%
  2014.  
  2015. echo @if "%%debug%%"=="" echo off >%tmp%\_nwlan.bat
  2016. inifile %w_wattcp%\wattcp.cfg [] gateway | lmod set p_gway=[$3]>>%tmp%\_nwlan.bat
  2017. inifile %w_wattcp%\wattcp.cfg [] nameserver | lmod set p_dns1=[$3]>>%tmp%\_nwlan.bat
  2018. inifile %w_wattcp%\wattcp.cfg [] domainslist | lmod set p_domain=[$3]>>%tmp%\_nwlan.bat
  2019. inifile %w_wattcp%\wattcp.cfg [] netmask | lmod set p_subnet=[$3]>>%tmp%\_nwlan.bat
  2020. inifile %w_wattcp%\wattcp.cfg [] my_ip | lmod set p_ip=[$3]>>%tmp%\_nwlan.bat
  2021. call %tmp%\_nwlan.bat
  2022. del %tmp%\_nwlan.bat >nul
  2023. set p_dhcp=0
  2024. echo %p_ip% >%tmp%\_nwlan.bak
  2025. tfind "dhcp" <%tmp%\_nwlan.bak >nul
  2026. if errorlevel 1 goto _no11cp
  2027. set p_dhcp=1
  2028. set p_ip=
  2029. set p_subnet=
  2030. :_no11cp
  2031.  
  2032. :_nopktfrm
  2033.  
  2034. if "%w_netcfg%"=="1" goto _editsome
  2035. if "%w_nicfrm%"=="1" goto _editsome
  2036. goto _editnon
  2037. :_editsome
  2038. if exist %ramdrv%\bin\edit.com goto _editok
  2039. echo NWLAN: Cannot edit the file you marked, %ramdrv%\bin\edit.com does not exist...
  2040. @rem pause
  2041. goto _editnon
  2042. :_editok
  2043. if "%w_netcfg%"=="1" if exist %ramdrv%\lan\net.cfg edit %ramdrv%\lan\net.cfg
  2044. if "%w_nicfrm%"=="1" if exist %ramdrv%\lan\%p_nic%.bat edit %ramdrv%\lan\%p_nic%.bat
  2045. :_editnon
  2046.  
  2047. if "%p_slow%"=="" goto _noslow
  2048. if exist %ramdrv%\bin\slowdown slowdown /d /v /p:%p_slow%
  2049. :_noslow
  2050.  
  2051.  
  2052. :_prelan
  2053. @rem call %ramdrv%\bin\crc.bat %ramdrv%\etc %ramdrv% %ramdrv%
  2054. @rem if exist %ramdrv%\halt.txt goto _end
  2055. :_launch
  2056. echo %path% | tfind "%ramdrv%\lan;" >nul
  2057. if errorlevel 1 set path=%ramdrv%\lan;%path%
  2058. set NWLANGUAGE=ENGLISH
  2059. %ramdrv%
  2060. cd %ramdrv%\lan
  2061.  
  2062. if "%p_pause%"=="1" pause
  2063.  
  2064. if not exist UMBPCIXX if not exist $MMXXXX0 if not exist EMMXXXX0 if not exist EMMQXXX0 goto _noumbfill
  2065. if "%p_clnt%"=="16" if not "%p_umb16fill%"=="1" goto _noumbfill
  2066. if "%p_clnt%"=="32" if "%p_umb32fill%"=="0" goto _noumbfill
  2067. if exist %ramdrv%\bin\umbfill.com umbfill.com
  2068. :_noumbfill
  2069.  
  2070. echo NWLAN: Launching NetWare %p_clnt% bit Client
  2071. echo. >%tmp%\nw%p_prot%%p_clnt%.log
  2072. for %%i in (%tmp%\*.mac) do if exist %%i del %%i >nul
  2073. set macaddr=
  2074. set macaddr8=
  2075. set ipaddr=
  2076. set ipaddr8=
  2077. echo @if "%%debug%%"=="" echo off >%ramdrv%\lan\ipconfig.bat
  2078. echo echo UNNWLAN: Done >%ramdrv%\bin\unnwlan.bat
  2079. echo :_end >>%ramdrv%\bin\unnwlan.bat
  2080. type %ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.unl
  2081. if "%p_clnt%"=="16" goto _vlm
  2082. if "%p_clnt%"=="32" goto _nlm
  2083. %0 : _error undefined '%p_clnt%'
  2084.  
  2085. :_vlm
  2086. call loaded.bat lsl
  2087. if errorlevel 1 goto _8lsl
  2088. :_7lsl
  2089. set _ldh=%ldh%
  2090. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2091. %_ldh% lsl.com
  2092. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading lsl.com
  2093. echo echo UNNWLAN: Unloading Lsl.com >%ramdrv%\bin\unnwlan.bat
  2094. echo %ramdrv%\lan\lsl.com /u >>%ramdrv%\bin\unnwlan.bat
  2095. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2096. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2097. :_8lsl
  2098. call loaded.bat %w_netcard%
  2099. if errorlevel 1 goto _8netcard
  2100. :_7netcard
  2101. set _ldh=%ldh%
  2102. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2103. if "%p_niclow%"=="1" set _ldh=
  2104. %_ldh% %w_netcard%
  2105. if errorlevel 1 if not errorlevel 2 if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" %w_netcard%
  2106. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading %w_netcard%
  2107. call loaded.bat %p_nic%
  2108. if errorlevel 1 goto _8net4c
  2109. if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" echo NWLAN: Retry %p_nic% (forcing loadlow)
  2110. if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" %w_netcard%
  2111. call loaded.bat %p_nic%
  2112. if errorlevel 1 goto _8net4c
  2113. %0 : _error problem loading %w_netcard%
  2114. :_8net4c
  2115. echo echo UNNWLAN: Unloading %w_netcard% >%ramdrv%\bin\unnwlan.bat
  2116. echo %ramdrv%\lan\%w_netcard% /u >>%ramdrv%\bin\unnwlan.bat
  2117. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2118. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2119. if exist %ramdrv%\bin\Capture.com %ramdrv%
  2120. if exist text.vid del text.vid >nul
  2121. if exist %ramdrv%\bin\Capture.com Capture.com t
  2122. if not exist text.vid goto _j2vid3
  2123. tfind "Node" "Address" <text.vid >%tmp%\_nwlan.tmp
  2124. if errorlevel 1 goto _j2vid3
  2125. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2126. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2127. :_j2vid3
  2128. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2129. if exist text.vid del text.vid >nul
  2130. :_8netcard
  2131. echo.
  2132. if not "%p_pkt%"=="1" goto _nopkt3
  2133. if not exist %ramdrv%\lan\pkt.bat goto _nopkt3
  2134. call loaded.bat odipkt
  2135. if errorlevel 1 goto _81odipkt
  2136. :_71odipkt
  2137. echo.
  2138. call %ramdrv%\lan\pkt.bat
  2139. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odipkt.com
  2140. echo echo UNNWLAN: Unloading Odipkt.com >%ramdrv%\bin\unnwlan.bat
  2141. echo if exist %ramdrv%\lan\odipktu.com %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2142. echo if exist %ramdrv%\lan\odipktu.com del %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2143. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2144. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2145. if "%p_pktnotst%"=="1" goto _81odipkt
  2146. if not exist %ramdrv%\bin\pprd.exe if not exist %ramdrv%\bin\tcpinfo.exe goto _81odipkt
  2147. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2148. if not exist %ramdrv%\bin\pprd.exe goto _ne144rt
  2149. %ramdrv%\bin\pprd.exe -x >%tmp%\_nwlan.bak
  2150. goto _ne155rt
  2151. :_ne144rt
  2152. if not exist %ramdrv%\bin\tcpinfo.exe goto _ne155rt
  2153. %ramdrv%\bin\tcpinfo.exe >%tmp%\_nwlan.bak
  2154. :_ne155rt
  2155. if not exist %tmp%\_nwlan.bak goto _j3vid3
  2156. echo. >%tmp%\_nwlan.tmp
  2157. tfind "ethernet" "address" ":" <%tmp%\_nwlan.bak | lmod /s: [$1] [$2] : [$3 U][$4 U][$5 U][$6 U][$7 U][$8 U]>>%tmp%\_nwlan.tmp
  2158. tfind "ip" "address" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2159. tfind "network" "mask" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2160. tfind "domain" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2161. xgrep "^[:s]+:" <%tmp%\_nwlan.bak | tfind "." >%tmp%\_nwlan.txt
  2162. tfind    "default" <%tmp%\_nwlan.txt | lmod [$3] [$1] [$2] >>%tmp%\_nwlan.tmp
  2163. tfind /v "default" <%tmp%\_nwlan.txt | lmod DNS [] >>%tmp%\_nwlan.tmp
  2164. tfind "name" "server" ":" <%tmp%\_nwlan.bak | lmod DNS [] >>%tmp%\_nwlan.tmp
  2165. tfind ":" <%tmp%\_nwlan.tmp >nul
  2166. if errorlevel 1 goto _j3vid3
  2167. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2168. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2169. :_j3vid3
  2170. if exist %tmp%\_nwlan.txt del %tmp%\_nwlan.txt >nul
  2171. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2172. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2173. :_81odipkt
  2174. if not exist %ramdrv%\lan\odihlp.exe goto _nopkt3
  2175. call loaded.bat odihlp
  2176. if errorlevel 1 goto _81odihlp
  2177. :_71odihlp
  2178. if exist %ramdrv%\bin\snap.com snap.com S=%tmp%\odihlp.bin
  2179. %ramdrv%\lan\odihlp.exe
  2180. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odihlp.exe
  2181. echo echo UNNWLAN: Unloading Odihlp.exe >%ramdrv%\bin\unnwlan.bat
  2182. echo if exist %ramdrv%\bin\snap.com if exist %tmp%\odihlp.bin snap.com R=%tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2183. echo if exist %tmp%\odihlp.bin del %tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2184. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2185. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2186. :_81odihlp
  2187. :_nopkt3
  2188. if "%p_user%"=="$" goto _skp1cl16
  2189. call loaded.bat ipxodi
  2190. if errorlevel 1 goto _8ipxodi
  2191. :_7ipxodi
  2192. %ldh% ipxodi.com /d
  2193. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading ipxodi.com
  2194. echo echo UNNWLAN: Unloading Ipxodi.com >%ramdrv%\bin\unnwlan.bat
  2195. echo %ramdrv%\lan\ipxodi.com /u >>%ramdrv%\bin\unnwlan.bat
  2196. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2197. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2198. :_8ipxodi
  2199. if not exist netbios.exe goto _nbiosn
  2200. call loaded.bat netbios
  2201. if errorlevel 1 goto _8netbios
  2202. :_7netbios
  2203. if exist %ramdrv%\bin\snap.com snap.com S=%tmp%\netbios.bin
  2204. netbios.exe
  2205. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading netbios.exe
  2206. echo echo UNNWLAN: Unloading Netbios.exe >%ramdrv%\bin\unnwlan.bat
  2207. echo if exist %ramdrv%\bin\snap.com if exist %tmp%\netbios.bin snap.com R=%tmp%\netbios.bin >>%ramdrv%\bin\unnwlan.bat
  2208. echo if exist %tmp%\netbios.bin del %tmp%\netbios.bin >>%ramdrv%\bin\unnwlan.bat
  2209. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2210. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2211. :_8netbios
  2212. :_nbiosn
  2213. call loaded.bat vlm
  2214. if errorlevel 1 goto _8vlm
  2215. :_7vlm
  2216. if not exist %ramdrv%\etc\vlm.bat goto _nvlm1
  2217. type %ramdrv%\etc\vlm.bat >%ramdrv%\lan\vlm.bat
  2218. tfind /e "vlm.exe" <%ramdrv%\lan\vlm.bat >nul
  2219. if errorlevel 1 goto _nvlm3
  2220. :_nvlm1
  2221. if not exist %ramdrv%\etc\vlm.ldr goto _nvlm2
  2222. xgrep -sv "^[:s]*;" %ramdrv%\etc\vlm.ldr >%tmp%\_nwlan.tmp
  2223. echo "" >>%tmp%\_nwlan.tmp
  2224. lmod /S"" @vlm.exe [$1:$!][+]<%tmp%\_nwlan.tmp >%ramdrv%\lan\vlm.bat
  2225. goto _nvlm3
  2226. :_nvlm2
  2227. echo @vlm.exe /mx >%ramdrv%\lan\vlm.bat
  2228. :_nvlm3
  2229. if "%p_user%"=="!" goto _skp1cl16
  2230. if "%p_user%"=="$" goto _skp1cl16
  2231. call %ramdrv%\lan\vlm.bat
  2232. echo echo UNNWLAN: Unloading Vlm.exe >%ramdrv%\bin\unnwlan.bat
  2233. echo %ramdrv%\lan\vlm.exe /u >>%ramdrv%\bin\unnwlan.bat
  2234. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2235. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2236. :_8vlm
  2237. :_skp1cl16
  2238. echo @if "%%debug%%"=="" echo off >%ramdrv%\bin\unnwlan.bat
  2239. echo echo UNNWLAN: Unloading 16-bit Client >>%ramdrv%\bin\unnwlan.bat
  2240. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2241. type %ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.unl
  2242. type %ramdrv%\bin\unnwlan.bat >nul
  2243. goto _loaddone
  2244.  
  2245. :_nlm
  2246. if exist Nbihw.cfg del Nbihw.cfg >nul
  2247. if exist Nios.log del Nios.log >nul
  2248. if "%p_prot%"=="tcp" if exist Dhcpxxx.* del Dhcpxxx.* >nul
  2249.  
  2250. modules | tfind /e "NIOS.EXE" >nul
  2251. if errorlevel 1 goto _NIOSQ
  2252. if exist %ramdrv%\lan\nios.bat del %ramdrv%\lan\nios.bat >nul
  2253. if not exist %ramdrv%\etc\nios.bat goto _nnios1
  2254. type %ramdrv%\etc\nios.bat >%ramdrv%\lan\nios.bat
  2255. echo @if errorlevel 1 el! 1 >>%ramdrv%\lan\nios.bat
  2256. tfind /e "nios" <%ramdrv%\lan\nios.bat >nul
  2257. if errorlevel 1 goto _nnios3
  2258. :_nnios1
  2259. echo /MV /L /D >%tmp%\_nwlan.tmp
  2260. if not exist %ramdrv%\etc\nios.ldr goto _nnios2
  2261. xgrep -sv "^[:s]*;" %ramdrv%\etc\nios.ldr >%tmp%\_nwlan.tmp
  2262. :_nnios2
  2263. echo. >>%tmp%\_nwlan.tmp
  2264. if not exist UMBPCIXX if not exist $MMXXXX0 if not exist EMMXXXX0 if not exist EMMQXXX0 goto _nnios0fd
  2265. if "%os%"=="fd" goto _nniosfd
  2266. :_nnios0fd
  2267. lmod @NIOS.EXE [][+]@if errorlevel 1 el! 1[+]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\nios.bat
  2268. goto _nnios3
  2269. :_nniosfd
  2270. if not exist %ramdrv%\bin\umbfill.com if exist %ramdrv%\bin\dummy.sys %ldh% /l: device /h %ramdrv%\bin\dummy.sys
  2271. if     exist %ramdrv%\bin\umbfill.com if exist %ramdrv%\bin\dummy.sys if "%p_umb32fill%"=="0" %ldh% /l: device /h %ramdrv%\bin\dummy.sys
  2272. lmod @%ldh% /L: NIOS.EXE [][+]@if errorlevel 2 el! 0[+]@if errorlevel 1 el! 1[+]<%tmp%\_nwlan.tmp >>%ramdrv%\lan\nios.bat
  2273. :_nnios3
  2274. if exist %ramdrv%\bin\snap.com snap.com S=%tmp%\nios.bin
  2275. call %ramdrv%\lan\nios.bat
  2276. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading nios.exe
  2277. :_NIOSQ
  2278. echo echo UNNWLAN: Unloading Nios.exe >%ramdrv%\bin\unnwlan.bat
  2279. echo if exist %ramdrv%\bin\snap.com if exist %tmp%\nios.bin snap.com R=%tmp%\nios.bin >>%ramdrv%\bin\unnwlan.bat
  2280. echo if exist %tmp%\nios.bin del %tmp%\nios.bin >>%ramdrv%\bin\unnwlan.bat
  2281. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2282. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2283. modules | tfind /e "NBIC32.NLM" >nul
  2284. if errorlevel 1 goto _NBIC32
  2285. LOAD NBIC32.NLM
  2286. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading nbic32.nlm
  2287. :_NBIC32
  2288. echo echo UNNWLAN: Unloading Nbic32.nlm >%ramdrv%\bin\unnwlan.bat
  2289. echo unload nbic32.nlm >>%ramdrv%\bin\unnwlan.bat
  2290. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2291. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2292. if "%w_odi%"=="32" goto _no3216
  2293. call loaded.bat lsl
  2294. if errorlevel 1 goto _4lsl
  2295. :_3lsl
  2296. set _ldh=%ldh%
  2297. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2298. %_ldh% LSL.COM
  2299. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading lsl.com
  2300. :_4lsl
  2301. echo echo UNNWLAN: Unloading Lsl.com >%ramdrv%\bin\unnwlan.bat
  2302. echo %ramdrv%\lan\lsl.com /u >>%ramdrv%\bin\unnwlan.bat
  2303. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2304. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2305. call loaded.bat n16odi
  2306. if errorlevel 1 goto _4n16odi
  2307. :_3n16odi
  2308. set _ldh=%ldh%
  2309. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2310. %_ldh% N16ODI.COM
  2311. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading n16odi.com
  2312. :_4n16odi
  2313. echo echo UNNWLAN: Unloading N16odi.com >%ramdrv%\bin\unnwlan.bat
  2314. echo %ramdrv%\lan\n16odi.com /u >>%ramdrv%\bin\unnwlan.bat
  2315. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2316. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2317. call loaded.bat nesl
  2318. if errorlevel 1 goto _4nesl
  2319. :_3nesl
  2320. set _ldh=%ldh%
  2321. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2322. %_ldh% NESL.COM
  2323. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading nesl.com
  2324. :_4nesl
  2325. echo echo UNNWLAN: Unloading Nesl.com >%ramdrv%\bin\unnwlan.bat
  2326. echo %ramdrv%\lan\nesl.com /u >>%ramdrv%\bin\unnwlan.bat
  2327. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2328. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2329. call loaded.bat %w_netcard%
  2330. if errorlevel 1 goto _4netcard
  2331. :_3netcard
  2332. set _ldh=%ldh%
  2333. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2334. if "%p_niclow%"=="1" set _ldh=
  2335. %_ldh% %w_netcard%
  2336. if errorlevel 1 if not errorlevel 2 if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" %w_netcard%
  2337. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading %w_netcard%
  2338. call loaded.bat %p_nic%
  2339. if errorlevel 1 goto _8net5c
  2340. if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" echo NWLAN: Retry %p_nic% (forcing loadlow)
  2341. if not "%_ldh%"=="" if not "%p_nicno2nd%"=="1" %w_netcard%
  2342. call loaded.bat %p_nic%
  2343. if errorlevel 1 goto _8net5c
  2344. %0 : _error problem loading %w_netcard%
  2345. :_8net5c
  2346. :_4netcard
  2347. echo echo UNNWLAN: Unloading %w_netcard% >%ramdrv%\bin\unnwlan.bat
  2348. echo %ramdrv%\lan\%w_netcard% /u >>%ramdrv%\bin\unnwlan.bat
  2349. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2350. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2351. if exist %ramdrv%\bin\Capture.com %ramdrv%
  2352. if exist text.vid del text.vid >nul
  2353. if exist %ramdrv%\bin\Capture.com Capture.com t
  2354. if not exist text.vid goto _j1vid3
  2355. tfind "Node" "Address" <text.vid >%tmp%\_nwlan.tmp
  2356. if errorlevel 1 goto _j1vid3
  2357. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2358. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2359. :_j1vid3
  2360. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2361. if exist text.vid del text.vid >nul
  2362. modules | tfind /e "LSLC32.NLM" >nul
  2363. if errorlevel 1 goto _LSLC32
  2364. LOAD LSLC32.NLM
  2365. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading lslc32.nlm
  2366. :_LSLC32
  2367. echo echo UNNWLAN: Unloading Lslc32.nlm >%ramdrv%\bin\unnwlan.bat
  2368. echo unload lslc32.nlm >%ramdrv%\bin\unnwlan.bat
  2369. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2370. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2371.  
  2372. if not "%p_pkt%"=="1" goto _nopkt23
  2373. if not exist %ramdrv%\lan\pkt.bat goto _nopkt23
  2374. call loaded.bat odipkt
  2375. if errorlevel 1 goto _4odipkt
  2376. :_3odipkt
  2377. echo.
  2378. call %ramdrv%\lan\pkt.bat
  2379. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odipkt.com
  2380. echo echo UNNWLAN: Unloading Odipkt.com >%ramdrv%\bin\unnwlan.bat
  2381. echo if exist %ramdrv%\lan\odipktu.com %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2382. echo if exist %ramdrv%\lan\odipktu.com del %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2383. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2384. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2385. if "%p_pktnotst%"=="1" goto _4odipkt
  2386. if not exist %ramdrv%\bin\pprd.exe if not exist %ramdrv%\bin\tcpinfo.exe goto _4odipkt
  2387. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2388. if not exist %ramdrv%\bin\pprd.exe goto _ne344rt
  2389. %ramdrv%\bin\pprd.exe -x >%tmp%\_nwlan.bak
  2390. goto _ne355rt
  2391. :_ne344rt
  2392. if not exist %ramdrv%\bin\tcpinfo.exe goto _ne355rt
  2393. %ramdrv%\bin\tcpinfo.exe >%tmp%\_nwlan.bak
  2394. :_ne355rt
  2395. if not exist %tmp%\_nwlan.bak goto _j4vid3
  2396. echo. >%tmp%\_nwlan.tmp
  2397. tfind "ethernet" "address" ":" <%tmp%\_nwlan.bak | lmod /s: [$1] [$2] : [$3 U][$4 U][$5 U][$6 U][$7 U][$8 U]>>%tmp%\_nwlan.tmp
  2398. tfind "ip" "address" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2399. tfind "network" "mask" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2400. tfind "domain" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2401. xgrep "^[:s]+:" <%tmp%\_nwlan.bak | tfind "." >%tmp%\_nwlan.txt
  2402. tfind    "default" <%tmp%\_nwlan.txt | lmod [$3] [$1] [$2] >>%tmp%\_nwlan.tmp
  2403. tfind /v "default" <%tmp%\_nwlan.txt | lmod DNS [] >>%tmp%\_nwlan.tmp
  2404. tfind "name" "server" ":" <%tmp%\_nwlan.bak | lmod DNS [] >>%tmp%\_nwlan.tmp
  2405. tfind ":" <%tmp%\_nwlan.tmp >nul
  2406. if errorlevel 1 goto _j4vid3
  2407. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2408. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2409. :_j4vid3
  2410. if exist %tmp%\_nwlan.txt del %tmp%\_nwlan.txt >nul
  2411. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2412. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2413. :_4odipkt
  2414. if not exist %ramdrv%\lan\odihlp.exe goto _nopkt23
  2415. call loaded.bat odihlp
  2416. if errorlevel 1 goto _4odihlp
  2417. :_3odihlp
  2418. if exist %ramdrv%\bin\snap.com snap.com S=%tmp%\odihlp.bin
  2419. %ramdrv%\lan\odihlp.exe
  2420. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odihlp.exe
  2421. echo echo UNNWLAN: Unloading Odihlp.exe >%ramdrv%\bin\unnwlan.bat
  2422. echo if exist %ramdrv%\bin\snap.com if exist %tmp%\odihlp.bin snap.com R=%tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2423. echo if exist %tmp%\odihlp.bin del %tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2424. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2425. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2426. :_4odihlp
  2427. :_nopkt23
  2428. modules | tfind /e "PC32MLID.LAN" >nul
  2429. if errorlevel 1 goto _PC32MLID
  2430. LOAD PC32MLID.LAN
  2431. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading pc32mlid.lan
  2432. :_PC32MLID
  2433. echo echo UNNWLAN: Unloading Pc32mlid.lan >%ramdrv%\bin\unnwlan.bat
  2434. echo unload pc32mlid.lan >>%ramdrv%\bin\unnwlan.bat
  2435. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2436. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2437. goto _ok3216
  2438. :_no3216
  2439. modules | tfind /e "LSLC32.NLM" >nul
  2440. if errorlevel 1 goto _2LSLC32
  2441. LOAD LSLC32.NLM
  2442. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading lslc32.nlm
  2443. :_2LSLC32
  2444. echo echo UNNWLAN: Unloading Lslc32.nlm >%ramdrv%\bin\unnwlan.bat
  2445. echo unload lslc32.nlm >>%ramdrv%\bin\unnwlan.bat
  2446. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2447. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2448. modules | tfind /e "CMSM.NLM" >nul
  2449. if errorlevel 1 goto _CMSM
  2450. LOAD CMSM.NLM
  2451. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading cmsm.nlm
  2452. :_CMSM
  2453. echo echo UNNWLAN: Unloading Cmsm.nlm >%ramdrv%\bin\unnwlan.bat
  2454. echo unload cmsm.nlm >>%ramdrv%\bin\unnwlan.bat
  2455. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2456. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2457. modules | tfind /e "%p_topo%TSM.NLM" >nul
  2458. if errorlevel 1 goto _TOPOTSM
  2459. LOAD %p_topo%TSM.NLM
  2460. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading %p_topo%tsm.nlm
  2461. :_TOPOTSM
  2462. echo echo UNNWLAN: Unloading %p_topo%tsm.nlm >%ramdrv%\bin\unnwlan.bat
  2463. echo unload %p_topo%tsm.nlm >>%ramdrv%\bin\unnwlan.bat
  2464. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2465. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2466. if not exist %p_nic%.bat %0 : _error problem loading %p_nic%.bat
  2467. modules | tfind /e "%p_nic%.LAN" >nul
  2468. if errorlevel 1 goto _PNICLAN
  2469. if exist %ramdrv%\bin\Slot.bat call Slot.bat 0
  2470. if "%slot0%"=="" goto _nslot
  2471. if "%p_noslot%"=="1" goto _nslot
  2472. if exist %ramdrv%\etc\noslot.txt goto _nslot
  2473. if exist %ramdrv%\lan\odi%w_odi%.isa goto _nslot
  2474. tfind /e "SLOT=" <%p_nic%.bat >nul
  2475. if errorlevel 1 goto _nslot
  2476. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2477. lmod /L* [] SLOT=%slot0%<%p_nic%.bat >%tmp%\_nwlan.tmp
  2478. type %tmp%\_nwlan.tmp >%p_nic%.bat
  2479. set slot0=
  2480. :_nslot
  2481. echo @if errorlevel 1 el! 1 >>%p_nic%.bat
  2482. call %p_nic%.bat
  2483. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading %p_nic%.bat
  2484. :_PNICLAN
  2485. echo echo UNNWLAN: Unloading %p_nic%.lan >%ramdrv%\bin\unnwlan.bat
  2486. echo unload %p_nic%.lan >>%ramdrv%\bin\unnwlan.bat
  2487. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2488. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2489. if not "%p_clnt%"=="%w_odi%" goto _nopkt5
  2490. if not "%p_pkt%"=="1" if exist ipx.nlm goto _nopkt5
  2491. if not "%p_pkt%"=="1" if exist %srcdrv%\lib\nwipx%p_clnt%.%arcext% goto _nopkt5
  2492. if not "%p_8022%"=="1" goto _nopkt5
  2493. if not "%p_8023%"=="1" goto _nopkt5
  2494. if not "%p_ii%"=="1" goto _nopkt5
  2495. if not "%p_snap%"=="1" goto _nopkt5
  2496. if not exist lsl.com goto _nopkt5
  2497. if not exist pdosmlid.nlm goto _nopkt5
  2498. if "%p_topo%"=="ether" set w_frame=eth
  2499. if "%p_topo%"=="token" set w_frame=tok
  2500. if "%p_topo%"=="fddi" set w_frame=fddi
  2501. if not exist pdos%w_frame%.com goto _nopkt5
  2502. call loaded.bat lsl
  2503. if errorlevel 1 goto _6lsl
  2504. :_5lsl
  2505. set _ldh=%ldh%
  2506. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2507. %_ldh% LSL.COM
  2508. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading lsl.com
  2509. :_6lsl
  2510. echo echo UNNWLAN: Unloading Lsl.com >%ramdrv%\bin\unnwlan.bat
  2511. echo %ramdrv%\lan\lsl.com /u >>%ramdrv%\bin\unnwlan.bat
  2512. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2513. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2514. call loaded.bat pdos%w_frame%
  2515. if errorlevel 1 goto _6pdos
  2516. :_5pdos
  2517. set _ldh=%ldh%
  2518. if exist EMMQXXX0 if "%p_emmqxxx0%"=="1" set _ldh=
  2519. %_ldh% PDOS%w_frame%.COM
  2520. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading pdos%w_frame%.com
  2521. :_6pdos
  2522. echo echo UNNWLAN: Unloading Pdos%w_frame%.com >%ramdrv%\bin\unnwlan.bat
  2523. echo %ramdrv%\lan\pdos%w_frame%.com /u >>%ramdrv%\bin\unnwlan.bat
  2524. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2525. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2526. if exist %ramdrv%\bin\Capture.com %ramdrv%
  2527. if exist text.vid del text.vid >nul
  2528. if exist %ramdrv%\bin\Capture.com Capture.com t
  2529. if not exist text.vid goto _j12vid3
  2530. tfind "Node" "Address" <text.vid >%tmp%\_nwlan.tmp
  2531. if errorlevel 1 goto _j12vid3
  2532. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2533. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2534. :_j12vid3
  2535. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2536. if exist text.vid del text.vid >nul
  2537. if not exist %ramdrv%\lan\pkt.bat goto _nopkt5
  2538. call loaded.bat odipkt
  2539. if errorlevel 1 goto _6odipkt
  2540. :_5odipkt
  2541. if "%p_pkt%"=="1" goto _5od1pkt
  2542. %ramdrv%\lan\pdos%w_frame%.com /u
  2543. %ramdrv%\lan\lsl.com /u
  2544. tfind /v "Pdos%w_frame%.com" <%ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.tmp
  2545. tfind /v "lsl.com" <%tmp%\_nwlan.tmp >%ramdrv%\bin\unnwlan.bat
  2546. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2547. goto _nopkt5
  2548. :_5od1pkt
  2549. echo.
  2550. call %ramdrv%\lan\pkt.bat
  2551. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odipkt.com
  2552. echo echo UNNWLAN: Unloading Odipkt.com >%ramdrv%\bin\unnwlan.bat
  2553. echo if exist %ramdrv%\lan\odipktu.com %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2554. echo if exist %ramdrv%\lan\odipktu.com del %ramdrv%\lan\odipktu.com >>%ramdrv%\bin\unnwlan.bat
  2555. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2556. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2557. if "%p_pktnotst%"=="1" goto _6odipkt
  2558. if not exist %ramdrv%\bin\pprd.exe if not exist %ramdrv%\bin\tcpinfo.exe goto _6odipkt
  2559. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2560. if not exist %ramdrv%\bin\pprd.exe goto _ne44rt
  2561. %ramdrv%\bin\pprd.exe -x >%tmp%\_nwlan.bak
  2562. goto _ne55rt
  2563. :_ne44rt
  2564. if not exist %ramdrv%\bin\tcpinfo.exe goto _ne55rt
  2565. %ramdrv%\bin\tcpinfo.exe >%tmp%\_nwlan.bak
  2566. :_ne55rt
  2567. if not exist %tmp%\_nwlan.bak goto _j2vid3
  2568. echo. >%tmp%\_nwlan.tmp
  2569. tfind "ethernet" "address" ":" <%tmp%\_nwlan.bak | lmod /s: [$1] [$2] : [$3 U][$4 U][$5 U][$6 U][$7 U][$8 U]>>%tmp%\_nwlan.tmp
  2570. tfind "ip" "address" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2571. tfind "network" "mask" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2572. tfind "domain" ":" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  2573. xgrep "^[:s]+:" <%tmp%\_nwlan.bak | tfind "." >%tmp%\_nwlan.txt
  2574. tfind    "default" <%tmp%\_nwlan.txt | lmod [$3] [$1] [$2] >>%tmp%\_nwlan.tmp
  2575. tfind /v "default" <%tmp%\_nwlan.txt | lmod DNS [] >>%tmp%\_nwlan.tmp
  2576. tfind "name" "server" ":" <%tmp%\_nwlan.bak | lmod DNS [] >>%tmp%\_nwlan.tmp
  2577. tfind ":" <%tmp%\_nwlan.tmp >nul
  2578. if errorlevel 1 goto _j2vid3
  2579. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2580. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2581. :_j2vid3
  2582. if exist %tmp%\_nwlan.txt del %tmp%\_nwlan.txt >nul
  2583. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2584. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2585. :_6odipkt
  2586. if not exist %ramdrv%\lan\odihlp.exe goto _nopkt5
  2587. call loaded.bat odihlp
  2588. if errorlevel 1 goto _6odihlp
  2589. :_5odihlp
  2590. if exist %ramdrv%\bin\snap.com snap.com S=%tmp%\odihlp.bin
  2591. %ramdrv%\lan\odihlp.exe
  2592. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading odihlp.exe
  2593. echo echo UNNWLAN: Unloading Odihlp.exe >%ramdrv%\bin\unnwlan.bat
  2594. echo if exist %ramdrv%\bin\snap.com if exist %tmp%\odihlp.bin snap.com R=%tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2595. echo if exist %tmp%\odihlp.bin del %tmp%\odihlp.bin >>%ramdrv%\bin\unnwlan.bat
  2596. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2597. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2598. :_6odihlp
  2599. if exist %ramdrv%\bin\pprd.exe pprd.exe -x
  2600. :_nopkt5
  2601. :_ok3216
  2602. if "%p_user%"=="$" goto _skp1cl32
  2603. if not "%p_topo%"=="token" if not "%p_topo%"=="fddi" goto _sroute2
  2604. if "%p_nosroute%"=="1" goto _sroute2
  2605. if exist sroute.nlm goto _xsroute1
  2606. if not exist %srcdrv%\lib\sroute.%arcext% goto _sroute2
  2607. echo.
  2608. call unpack.bat %srcdrv%\lib\sroute.%arcext%
  2609. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\sroute.%arcext%'
  2610. :_xsroute1
  2611. modules | tfind /e "SROUTE.NLM" >nul
  2612. if errorlevel 1 goto _9SROUTE
  2613. if not exist %ramdrv%\etc\sroute.ldr goto _nsrt3
  2614. type %ramdrv%\etc\sroute.ldr >%ramdrv%\lan\sroute.ldr
  2615. :_nsrt3
  2616. if not exist %ramdrv%\lan\sroute.ldr goto _nsrt4
  2617. xgrep -sv "^[:s]*;" %ramdrv%\lan\sroute.ldr | lmod /L* []>%ramdrv%\lan\sroute.tmp
  2618. del %ramdrv%\lan\sroute.ldr >nul
  2619. if exist %ramdrv%\bin\zerodel.bat call zerodel.bat %ramdrv%\lan\sroute.tmp
  2620. if not exist %ramdrv%\lan\sroute.tmp goto _nsrt4
  2621. type %ramdrv%\lan\sroute.tmp >%ramdrv%\lan\sroute.ldr
  2622. del %ramdrv%\lan\sroute.tmp >nul
  2623. lmod LOAD SROUTE.NLM []<%ramdrv%\lan\sroute.ldr >%ramdrv%\lan\sroute.bat
  2624. goto _nsrt5
  2625. :_nsrt4
  2626. echo LOAD SROUTE.NLM >%ramdrv%\lan\sroute.bat
  2627. :_nsrt5
  2628. echo @if errorlevel 1 el! 1 >>%ramdrv%\lan\sroute.bat
  2629. call %ramdrv%\lan\sroute.bat
  2630. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading sroute.nlm
  2631. :_9SROUTE
  2632. echo echo UNNWLAN: Unloading sroute.nlm >%ramdrv%\bin\unnwlan.bat
  2633. echo unload sroute.nlm >>%ramdrv%\bin\unnwlan.bat
  2634. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2635. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2636. :_sroute2
  2637.  
  2638. if not "%p_prot%"=="tcp" goto _noldtcp
  2639. if "%p_clntti%"=="0" goto _nti1clnt
  2640. if "%p_clntti%"=="" set p_clntti=5
  2641. set w_timeout=%p_clntti%
  2642. wbat box @%0:w_pause #1,%w_timeout%
  2643. set w_timeout=
  2644. :_nti1clnt
  2645. modules | tfind /e "TCPIP.NLM" >nul
  2646. if errorlevel 1 goto _7TCPIP
  2647. load TCPIP.NLM
  2648. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading tcpip.nlm
  2649. echo.
  2650. if exist %ramdrv%\bin\Capture.com %ramdrv%
  2651. if exist text.vid del text.vid >nul
  2652. if exist %ramdrv%\bin\Capture.com Capture.com t
  2653. if not exist text.vid goto _jvid3
  2654. echo. >%tmp%\_nwlan.tmp
  2655. tfind "ip" "address" ":" <text.vid >>%tmp%\_nwlan.tmp
  2656. tfind "network" "mask" ":" <text.vid >>%tmp%\_nwlan.tmp
  2657. tfind " router" ":" <text.vid >>%tmp%\_nwlan.tmp
  2658. if "%p_domain%"=="" goto _jpdom2
  2659. echo Domain : %p_domain% >>%tmp%\_nwlan.tmp
  2660. :_jpdom2
  2661. if "%p_dns1%"=="" if "%p_dns2%"=="" if "%p_dns3%"=="" goto _jpdns2
  2662. echo DNS : %p_dns3% %p_dns2% %p_dns1% >>%tmp%\_nwlan.tmp
  2663. :_jpdns2
  2664. tfind ":" <%tmp%\_nwlan.tmp >nul
  2665. if errorlevel 1 goto _jvid3
  2666. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2667. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2668. :_jvid3
  2669. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2670. if exist text.vid del text.vid >nul
  2671. :_7TCPIP
  2672. echo echo UNNWLAN: Unloading Tcpip.nlm >%ramdrv%\bin\unnwlan.bat
  2673. echo unload tcpip.nlm >>%ramdrv%\bin\unnwlan.bat
  2674. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2675. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2676. type %ramdrv%\bin\unnwlan.bat >nul
  2677. :_xtripy2
  2678.  
  2679. :_noldtcp
  2680. if exist ipx.nlm goto _xyripx1
  2681. if not exist %srcdrv%\lib\nwipx%p_clnt%.%arcext% goto _ipx33
  2682. echo.
  2683. call unpack.bat %srcdrv%\lib\nwipx%p_clnt%.%arcext%
  2684. if not "%unpackerr%"=="" %0 : _error extracting '%srcdrv%\lib\nwipx%p_clnt%.%arcext%'
  2685. :_xyripx1
  2686. modules | tfind /e "IPX.NLM" >nul
  2687. if errorlevel 1 goto _9IPX
  2688. LOAD IPX.NLM
  2689. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading ipx.nlm
  2690. if exist %ramdrv%\bin\Capture.com %ramdrv%
  2691. if exist text.vid del text.vid >nul
  2692. if exist %ramdrv%\bin\Capture.com Capture.com t
  2693. if not exist text.vid goto _jvid3
  2694. tfind "Node" "Address" <text.vid >%tmp%\_nwlan.tmp
  2695. if errorlevel 1 goto _jvid3
  2696. type %tmp%\nw%p_prot%%p_clnt%.log >>%tmp%\_nwlan.tmp
  2697. type %tmp%\_nwlan.tmp >%tmp%\nw%p_prot%%p_clnt%.log
  2698. :_jvid3
  2699. if exist %tmp%\_nwlan.tmp del %tmp%\_nwlan.tmp >nul
  2700. if exist text.vid del text.vid >nul
  2701. :_xtripx3
  2702. if "%p_prot%"=="ipx" goto _9IPX
  2703. if "%p_prot2%"=="ipx" goto _9IPX
  2704. UNLOAD IPX.NLM
  2705. goto _i5p6x
  2706. :_9IPX
  2707. echo echo UNNWLAN: Unloading Ipx.nlm >%ramdrv%\bin\unnwlan.bat
  2708. echo unload ipx.nlm >>%ramdrv%\bin\unnwlan.bat
  2709. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2710. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2711. :_i5p6x
  2712. if not "%p_prot%"=="ipx" goto _ipx33
  2713. if not exist spx_skts.nlm goto _ipx33
  2714. modules | tfind /e "SPX_SKTS.NLM" >nul
  2715. if errorlevel 1 goto _9SPX_SKTS
  2716. LOAD SPX_SKTS.NLM
  2717. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading spx_skts.nlm
  2718. :_9SPX_SKTS
  2719. echo echo UNNWLAN: Unloading Spx_skts.nlm >%ramdrv%\bin\unnwlan.bat
  2720. echo unload spx_skts.nlm >>%ramdrv%\bin\unnwlan.bat
  2721. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2722. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2723. :_ipx33
  2724.  
  2725. if "%p_user%"=="!" goto _skp1cl32
  2726. if "%p_user%"=="$" goto _skp1cl32
  2727. if exist %ramdrv%\lan\trannta.nlm if exist %ramdrv%\lan\client%p_clnt%.nlm goto _tr1ta
  2728. set p_user=!
  2729. echo NWLAN: Loading protocol stack only (missing TRANNTA/CLIENT32)
  2730. goto _skp1cl32
  2731. :_tr1ta
  2732. modules | tfind /e "TRANNTA.NLM" >nul
  2733. if errorlevel 1 goto _TRANNTA
  2734. LOAD TRANNTA.NLM
  2735. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading trannta.nlm
  2736. :_TRANNTA
  2737. echo echo UNNWLAN: Unloading Trannta.nlm >%ramdrv%\bin\unnwlan.bat
  2738. echo unload trannta.nlm >>%ramdrv%\bin\unnwlan.bat
  2739. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2740. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2741. if not "%p_prot%"=="tcp" goto _srv52loc
  2742. if not exist %ramdrv%\lan\srvloc.nlm goto _srv52loc
  2743. modules | tfind /e "SRVLOC.NLM" >nul
  2744. if errorlevel 1 goto _SRVLOC
  2745. LOAD SRVLOC.NLM
  2746. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading srvloc.nlm
  2747. :_SRVLOC
  2748. echo echo UNNWLAN: Unloading Srvloc.nlm >%ramdrv%\bin\unnwlan.bat
  2749. echo unload srvloc.nlm >>%ramdrv%\bin\unnwlan.bat
  2750. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2751. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2752. :_srv52loc
  2753. if "%p_clntti%"=="0" goto _nticlnt
  2754. if "%p_clntti%"=="" set p_clntti=5
  2755. set w_timeout=%p_clntti%
  2756. wbat box @%0:w_pause #1,%w_timeout%
  2757. set w_timeout=
  2758. :_nticlnt
  2759. modules | tfind /e "CLIENT32.NLM" >nul
  2760. if errorlevel 1 goto _CLIENT32
  2761. LOAD CLIENT32.NLM
  2762. if errorlevel 1 if not errorlevel 2 %0 : _error problem loading client32.nlm
  2763. echo.
  2764. :_CLIENT32
  2765. echo echo UNNWLAN: Unloading Client32.nlm >%ramdrv%\bin\unnwlan.bat
  2766. echo unload client32.nlm >>%ramdrv%\bin\unnwlan.bat
  2767. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2768. type %ramdrv%\bin\unnwlan.bat  >%tmp%\_nwlan.unl
  2769. :_skp1cl32
  2770. echo @if "%%debug%%"=="" echo off >%ramdrv%\bin\unnwlan.bat
  2771. echo echo Unloading 32-bit Client >>%ramdrv%\bin\unnwlan.bat
  2772. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  2773. type %ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.unl
  2774. type %ramdrv%\bin\unnwlan.bat >nul
  2775. goto _loaddone
  2776.  
  2777. :_loaddone
  2778. if exist %ramdrv%\bin\mac.bat call mac.bat
  2779. if not "%macaddr%"=="000000000000" if not "%macaddr%"=="" goto _mc1done
  2780. if not exist %tmp%\nw%p_prot%%p_clnt%.log goto _mc1done
  2781. tfind "Node" "Address" <%tmp%\nw%p_prot%%p_clnt%.log >%tmp%\_nwlan.bak
  2782. if errorlevel 1 goto _jpmc6
  2783. goto _gomc6
  2784. :_jpmc6
  2785. tfind "Ethernet" "Address" <%tmp%\nw%p_prot%%p_clnt%.log >%tmp%\_nwlan.bak
  2786. if errorlevel 1 goto _mc1done
  2787. :_gomc6
  2788. lmod /SlL set macaddr=[$!]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  2789. call %tmp%\_nwlan.bat
  2790. :_macloop
  2791. echo %macaddr%>%tmp%\_nwlan.bak
  2792. lmod set macaddr8=[12]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  2793. call %tmp%\_nwlan.bat
  2794. if "%macaddr8%"=="" set macaddr=0%macaddr%
  2795. if "%macaddr8%"=="" goto :_macloop
  2796. lmod set macaddr8=[5]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  2797. call %tmp%\_nwlan.bat
  2798. :_mc1done
  2799. if "%macaddr8%"=="" goto _jpmc8
  2800. echo %macaddr%>%tmp%\%macaddr8%.mac
  2801. :_jpmc8
  2802. if exist %tmp%\_nwlan.bak del %tmp%\_nwlan.bak >nul
  2803.  
  2804. if "%p_prot%"=="ipx" if "%p_pkt%"=="1" goto _iconf1
  2805. if "%p_prot%"=="tcp" goto _iconf1
  2806. goto _skipip2
  2807. :_iconf1
  2808. set w_ip=
  2809. set w_subnet=
  2810. set w_gway=
  2811. if not exist %tmp%\nw%p_prot%%p_clnt%.log goto _mc2done
  2812. tfind "ip" "address" ":" <%tmp%\nw%p_prot%%p_clnt%.log | lmod set w_ip=[$!]>%tmp%\_nwlan.bat
  2813. tfind "network" "mask" ":" <%tmp%\nw%p_prot%%p_clnt%.log | lmod set w_subnet=[$!]>>%tmp%\_nwlan.bat
  2814. tfind "default" ":" <%tmp%\nw%p_prot%%p_clnt%.log | lmod set w_gway=[$!]>>%tmp%\_nwlan.bat
  2815. tfind "dns" ":" <%tmp%\nw%p_prot%%p_clnt%.log | lmod set w_dns=[$!]>>%tmp%\_nwlan.bat
  2816. tfind "domain" ":" <%tmp%\nw%p_prot%%p_clnt%.log | lmod set w_domain=[$!]>>%tmp%\_nwlan.bat
  2817. call %tmp%\_nwlan.bat
  2818. set ipaddr=%w_ip%
  2819. set ipaddr8=
  2820. if not exist %ramdrv%\bin\basecvrt.com goto _mc2done
  2821. if not exist %ramdrv%\bin\iphex.bat goto _mc2done
  2822. call iphex.bat %ipaddr% ipaddr8
  2823. :_mc2done
  2824. goto _ipcfdon
  2825. :_notcplog
  2826. goto _ipconf3
  2827. set w_ip=%p_ip%
  2828. set w_subnet=%p_subnet%
  2829. :_ipconf3
  2830. if "%p_prot%"=="ipx" set w_gway=%p_gway%
  2831. :_ipcfdon
  2832.  
  2833. echo @if "%%debug%%"=="" echo off >%ramdrv%\lan\ipconfig.bat
  2834. echo echo.>>%ramdrv%\lan\ipconfig.bat
  2835. echo echo IP configuration:>>%ramdrv%\lan\ipconfig.bat
  2836. if "%p_dhcp%"=="1" goto _dhcp41
  2837. echo echo .  DHCP.................... : no>>%ramdrv%\lan\ipconfig.bat
  2838. goto _dhcp42
  2839. :_dhcp41
  2840. echo echo .  DHCP.................... : yes>>%ramdrv%\lan\ipconfig.bat
  2841. :_dhcp42
  2842. echo echo .  DNS Server.............. : %w_dns%>>%ramdrv%\lan\ipconfig.bat
  2843. echo echo .  Domain Suffix........... : %w_domain%>>%ramdrv%\lan\ipconfig.bat
  2844. echo echo.>>%ramdrv%\lan\ipconfig.bat
  2845. echo echo Adapter %p_nic%:>>%ramdrv%\lan\ipconfig.bat
  2846. echo echo .  IP Address.............. : %w_ip% >>%ramdrv%\lan\ipconfig.bat
  2847. echo echo .  Subnet Mask............. : %w_subnet% >>%ramdrv%\lan\ipconfig.bat
  2848. echo echo .  Default Gateway......... : %w_gway% >>%ramdrv%\lan\ipconfig.bat
  2849. echo echo.>>%ramdrv%\lan\ipconfig.bat
  2850. echo NWLAN: Type "ipconfig" to view TCP/IP settings...
  2851. :_noipcfg
  2852.  
  2853. :_skipip2
  2854. goto _logon
  2855. if exist %tmp%\nw%p_prot%%p_clnt%.log del %tmp%\nw%p_prot%%p_clnt%.log >nul
  2856.  
  2857. :_logon
  2858. if "%macaddr%"=="" goto _noea
  2859. if "%macaddr%"=="000000000000" goto _noea
  2860. if "%macaddr8%"=="" goto _noea1
  2861. echo NWLAN: Your MAC Address: %macaddr% (%macaddr8%)
  2862. goto _noea
  2863. :_noea1
  2864. echo NWLAN: Your MAC Address: %macaddr%
  2865. :_noea
  2866. if "%ipaddr%"=="" goto _noei
  2867. if "%ipaddr%"=="0.0.0.0" goto _noei
  2868. if "%ipaddr8%"=="" goto _noei1
  2869. echo NWLAN: Your IP Address: %ipaddr% (%ipaddr8%)
  2870. goto _noei
  2871. :_noei1
  2872. echo NWLAN: Your IP Address: %ipaddr%
  2873. :_noei
  2874. echo NWLAN: Toggle [ScrollLock] for Scroll Back Screen Mode (Up with [PageUp])
  2875.  
  2876. if not exist %ramdrv%\etc\halt.txt if not exist %ramdrv%\etc\stop.txt goto _ndelthe
  2877. if "%ipaddr8%"=="" if "%macaddr8%"=="" goto _ndelthe
  2878. if not "1"=="p_chkpc" if not "%macaddr8%"=="" if exist %srcdrv%\etc\%macaddr8%.no goto _hlthalt
  2879. if not "0"=="p_chkpc" if not "%ipaddr8%"=="" if exist %srcdrv%\etc\%ipaddr8%.no goto _hlthalt
  2880. if not "1"=="p_chkpc" if not "%macaddr8%"=="" if exist %srcdrv%\etc\%macaddr8%.yes goto _ndelthe
  2881. if not "0"=="p_chkpc" if not "%ipaddr8%"=="" if exist %srcdrv%\etc\%ipaddr8%.yes goto _ndelthe
  2882. if not "1"=="p_chkpc" if not "%macaddr8%"=="" if exist %srcdrv%\etc\%macaddr8%.___ goto _hltmac
  2883. if not "0"=="p_chkpc" if not "%ipaddr8%"=="" if exist %srcdrv%\etc\%ipaddr8%.___ goto _hltip
  2884. set t_out=1
  2885. call drd.bat %srcdrv%
  2886. if errorlevel 1 set t_out=0
  2887. wbat box @%0:w_wprot #1,%t_out%
  2888. set t_out=
  2889. if errorlevel 2 %0 : _error Could not imprint MAC/IP on '%srcdrv%'
  2890. if not exist %srcdrv%\etc\*.* mkdir %srcdrv%\etc >nul
  2891. for %%i in (%srcdrv%\etc\*.___) do if exist %%i del %%i >nul
  2892. if exist %srcdrv%\etc\*.___ %0 : _error Could not delete '%srcdrv%\etc\*.___'
  2893. if "%macaddr8%"=="" goto _noea21
  2894. echo %macaddr8% >%tmp%\_nwlan.bak
  2895. tfind "z" <%tmp%\_nwlan.bak >%srcdrv%\etc\%macaddr8%.___
  2896. if not exist %srcdrv%\etc\%macaddr8%.___ %0 : _error Could not create '%srcdrv%\etc\%macaddr8%.___'
  2897. :_noea21
  2898. if "%ipaddr8%"=="" goto _noei21
  2899. echo %ipaddr8% >%tmp%\_nwlan.bak
  2900. tfind "z" <%tmp%\_nwlan.bak >%srcdrv%\etc\%ipaddr8%.___
  2901. if not exist %srcdrv%\etc\%ipaddr8%.___ %0 : _error Could not create '%srcdrv%\etc\%ipaddr8%.___'
  2902. :_noei21
  2903. goto _ndelthe
  2904. :_hltmac
  2905. :_hltip
  2906. if exist %ramdrv%\etc\halt.txt goto _hlthalt
  2907. if exist %ramdrv%\etc\stop.txt goto _hltstop
  2908. :_hlthalt
  2909. call halt.bat halt
  2910. if exist %ramdrv%\halt.txt goto _end
  2911. goto _end
  2912. :_hltstop
  2913. call halt.bat stop
  2914. if exist %ramdrv%\halt.txt goto _end
  2915. if exist %ramdrv%\halt.txt goto _end
  2916. :_ndelthe
  2917.  
  2918. if exist %tmp%\_nwlanx.bat del %tmp%\_nwlanx.bat >nul
  2919. if exist %tmp%\_nwlanz.bat del %tmp%\_nwlanz.bat >nul
  2920. if "%p_xpsmartdrv%"=="1" if exist %ramdrv%\bin\xpsmart.bat call %ramdrv%\bin\xpsmart.bat
  2921. set _path_=%path%
  2922. set w_login=%p_user%
  2923. if "%p_drive%"=="" set p_drive=f
  2924. set landrv=%p_drive%:
  2925. if "%p_user%"=="!" goto _notlan
  2926. if "%p_user%"=="$" goto _notlan
  2927. goto _skpyt
  2928. echo @set _drv= >%ramdrv%\bin\Login.bat
  2929. echo @if exist %landrv%login.exe set _drv=%landrv% >>%ramdrv%\bin\Login.bat
  2930. echo @%_drv%login.exe %%1 %%2 %%3 %%4 %%5 %%6 %%7 %%8 >>%ramdrv%\bin\Login.bat
  2931. echo @set _drv= >>%ramdrv%\bin\Login.bat
  2932. :_skpyt
  2933. if not exist %p_drive%:\nul if not exist %p_drive%:\login\nul goto _notlan2
  2934. call %ramdrv%\bin\drd.bat %p_drive%: /@
  2935. if errorlevel 1 goto _notlan2
  2936. echo NWLAN: Attached to network drive %p_drive%:
  2937. if not "%p_clnt%"=="16" goto _no16lfix
  2938. if not exist %ramdrv%\lan\nls\nul md %ramdrv%\lan\nls >nul
  2939. if not exist %ramdrv%\lan\nls\%nwlanguage%\nul md %ramdrv%\lan\nls\%nwlanguage% >nul
  2940. for %%i in (%p_drive%:\*.exe) do copy %%i %ramdrv%\lan\. >nul
  2941. for %%i in (%p_drive%:\nls\*.*) do copy %%i %ramdrv%\lan\nls\. >nul
  2942. for %%i in (%p_drive%:\nls\%nwlanguage%\*.msg) do copy %%i %ramdrv%\lan\nls\%nwlanguage%\. >nul
  2943. :_no16lfix
  2944. if "%p_user%"=="*" goto _notlan
  2945. if not "%p_clnt%"=="16" %p_drive%:
  2946. echo NWLAN: Network logon %p_user%
  2947. if not "%p_clnt%"=="16" if not "%p_server%"=="" set w_login=%p_server%/%w_login%
  2948. if not "%p_lgnbn%"=="1" set w_login=%w_login% /nb
  2949. if not exist %ramdrv%\etc\autoexec.scp goto _nscp3
  2950. type %ramdrv%\etc\autoexec.scp >%ramdrv%\lan\login.scp
  2951. :_nscp3
  2952. if not exist %ramdrv%\etc\profile\%g_profile%.scp goto _nscp4
  2953. type %ramdrv%\etc\profile\%g_profile%.scp >>%ramdrv%\lan\login.scp
  2954. :_nscp4
  2955. if not "%p_noscript%"=="1" goto _nscp5
  2956. if exist %ramdrv%\lan\login.scp goto _nscp5
  2957. echo write >%ramdrv%\lan\login.scp
  2958. echo write "LOGIN: Welcome %%LOGIN_NAME (%%FULL_NAME) to %%FILE_SERVER" >>%ramdrv%\lan\login.scp
  2959. echo write "LOGIN: Mapping search drive to SYS:PUBLIC" >>%ramdrv%\lan\login.scp
  2960. if not "%p_clnt%"=="16" goto _n16fm
  2961. echo map ins root s16:=SYS:PUBLIC\NLS\%nwlanguage% >>%ramdrv%\lan\login.scp
  2962. echo map ins root s16:=SYS:PUBLIC\NLS >>%ramdrv%\lan\login.scp
  2963. :_n16fm
  2964. echo map ins root s16:=SYS:PUBLIC >>%ramdrv%\lan\login.scp
  2965. echo set NETWORK="%%NETWORK" >>%ramdrv%\lan\login.scp
  2966. set t_out=1
  2967. call drd.bat %srcdrv%
  2968. if errorlevel 1 set t_out=0
  2969. wbat box @%0:w_wprot #1,%t_out%
  2970. set t_out=
  2971. if errorlevel 2 goto _nscp5
  2972. if not exist %srcdrv%\Etc\*.* mkdir %srcdrv%\Etc
  2973. type %ramdrv%\lan\login.scp >%srcdrv%\etc\autoexec.scp
  2974. type %ramdrv%\lan\login.scp >%ramdrv%\etc\autoexec.scp
  2975. echo NWLAN: Default global login script '%srcdrv%\etc\autoexec.scp' saved
  2976. :_nscp5
  2977. %ramdrv%\bin\fpath.com login.exe >nul
  2978. if errorlevel 1 goto _notlan3
  2979. if "%p_noscript%"=="1" set w_login=%w_login% /s %ramdrv%\lan\login.scp
  2980. if not "%p_user%"=="" goto _logpw
  2981. login.exe %w_login%
  2982. goto _lognw
  2983. :_logpw
  2984. @if "%w_passwd%"=="" goto _nonwpass
  2985. if not exist %ramdrv%\bin\kpush.com goto _echolin
  2986. @%ramdrv%\bin\kpush.com /f "%w_passwd%",CR
  2987. set w_passwd=
  2988. goto _nonwpass
  2989. :_echolin
  2990. @echo %w_passwd%| login.exe %w_login%
  2991. set w_passwd=
  2992. goto _lognw
  2993. :_nonwpass
  2994. if not "%p_user%"=="" login.exe %w_login%
  2995. :_lognw
  2996. if errorlevel 1 goto _logfail
  2997. if not "%p_clnt%"=="32" goto _noxdir
  2998. dir .. >nul
  2999. :_noxdir
  3000. if exist %ramdrv%\bin\repath.bat call %ramdrv%\bin\repath.bat
  3001. goto _logok
  3002. :_logfail
  3003. if exist %ramdrv%\bin\repath.bat call %ramdrv%\bin\repath.bat
  3004. @pause
  3005. :_logok
  3006. if not exist %ramdrv%\etc\autoexec.lan goto _noautonet
  3007. echo NWLAN: %srcdrv%\etc\autoexec.lan found
  3008. type %ramdrv%\etc\autoexec.lan >>%tmp%\_nwlanx.bat
  3009. :_noautonet
  3010. if "%g_profile%"=="" goto _noprf1
  3011. if not exist %ramdrv%\etc\profile\%g_profile%.lan goto _noprf1
  3012. type %ramdrv%\etc\profile\%g_profile%.lan >>%tmp%\_nwlanz.bat
  3013. echo NWLAN: %srcdrv%\etc\profile\%g_profile%.lan found
  3014. :_noprf1
  3015. echo NWLAN: Type "nwlan" or "m" to perform additional drive mappings
  3016. goto _end
  3017. :_notlan3
  3018. %ramdrv%
  3019. echo NWLAN: No LOGIN.EXE found on %p_drive%: (check 'First Drive' setting)
  3020. goto _notlan
  3021. :_notlan2
  3022. echo NWLAN: NOT attached to network drive %p_drive%: (check 'First Drive' setting)
  3023. goto _notlan
  3024. :_notlan
  3025. if "%g_profile%"=="" goto _no2prf1
  3026. if not exist %ramdrv%\etc\profile\%g_profile%.bat goto _no2prf1
  3027. type %ramdrv%\etc\profile\%g_profile%.bat >>%tmp%\_nwlanz.bat
  3028. echo NWLAN: %srcdrv%\etc\profile\%g_profile%.bat found
  3029. :_no2prf1
  3030. goto _end
  3031.  
  3032. :_savpro
  3033. call w.bat box @%0:w_proname
  3034. if errorlevel 2 goto _save
  3035. if not exist %ramdrv%\etc\profile\%g_profile%.pro goto _savecfg
  3036. call w.bat box @%0:w_pwrite
  3037. if errorlevel 2 goto _save
  3038. :_savecfg
  3039. set wrb=%p_nicmode%
  3040. set wcb1=%p_clntwin%
  3041. set wcb2=%p_frmwin%
  3042. set wcb3=%p_tcpwin%
  3043. set wcb4=%p_slpwin%
  3044. set wcb5=%p_idwin%
  3045. set wcb6=%w_savepw%
  3046. call w.bat box @%0:w_savecfg #13
  3047. if "%wcb1%"=="0" set wcb1=
  3048. if "%wcb2%"=="0" set wcb2=
  3049. if "%wcb3%"=="0" set wcb3=
  3050. if "%wcb4%"=="0" set wcb4=
  3051. if "%wcb5%"=="0" set wcb5=
  3052. if "%wcb6%"=="0" set wcb6=
  3053. set p_nicmode=%wrb%
  3054. set p_clntwin=%wcb1%
  3055. set p_frmwin=%wcb2%
  3056. set p_tcpwin=%wcb3%
  3057. set p_slpwin=%wcb4%
  3058. set p_idwin=%wcb5%
  3059. set w_savepw=%wcb6%
  3060. if errorlevel 2 goto _savpro
  3061. set t_out=1
  3062. call drd.bat %srcdrv%
  3063. if errorlevel 1 set t_out=0
  3064. wbat box @%0:w_wprot #1,%t_out%
  3065. set t_out=
  3066. if errorlevel 2 goto _save
  3067. echo NWLAN: Saving profile "%g_profile%"
  3068. set | tfind /f1,2 "P_">%tmp%\_nwlan.tmp
  3069. lmod /L* if "0.0.0.0"=="[$2]" set [$1]=<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  3070. call %tmp%\_nwlan.bat
  3071. set | tfind /f1,2 "P_">%tmp%\_nwlan.tmp
  3072. if not "%w_savepw%"=="1" goto _npw2
  3073. @echo W_PASSWD=%w_passwd%>>%tmp%\_nwlan.tmp
  3074. :_npw2
  3075. if not exist %srcdrv%\Etc\*.* mkdir %srcdrv%\Etc
  3076. if not exist %srcdrv%\Etc\Profile\*.* mkdir %srcdrv%\etc\Profile
  3077. type %tmp%\_nwlan.tmp>%ramdrv%\etc\profile\%g_profile%.pro
  3078. type %tmp%\_nwlan.tmp>%srcdrv%\etc\profile\%g_profile%.pro
  3079. echo NWLAN: Configuration saved to %srcdrv%\etc\profile\%g_profile%.pro
  3080. goto _save
  3081. :_help
  3082. wbat box @%0:w_help
  3083. goto _save
  3084.  
  3085. :_config2
  3086. echo NWLAN: NetWare Client already loaded, going "config"
  3087. :_config1
  3088. echo :w_config "nwlan config" [x]>%tmp%\_nwlan.tmp
  3089. echo.>>%tmp%\_nwlan.tmp
  3090. echo [ Global ]   Global settings, autoexec.lan>>%tmp%\_nwlan.tmp
  3091. echo.>>%tmp%\_nwlan.tmp
  3092. echo [ Profile ]  Edit, delete profiles>>%tmp%\_nwlan.tmp
  3093. echo.>>%tmp%\_nwlan.tmp
  3094. echo [ Map ]      Connect drive to network share>>%tmp%\_nwlan.tmp
  3095. echo.>>%tmp%\_nwlan.tmp
  3096. goto _noprotm
  3097. echo [ Relogon ]  Logon as a different user>>%tmp%\_nwlan.tmp
  3098. echo.>>%tmp%\_nwlan.tmp
  3099. :_noprotm
  3100. echo [? Exit ]     Exit>>%tmp%\_nwlan.tmp
  3101. call w.bat box @%tmp%\_nwlan.tmp:w_config
  3102. if errorlevel 100 goto _end
  3103. if "%wbat%"=="Global" goto _chgglo
  3104. if "%wbat%"=="Profile" goto _chgpro
  3105. if "%wbat%"=="Map" goto _mapdrv
  3106. if "%wbat%"=="Relogon" goto _relogon
  3107. %0 : _error w_config value "%wbat%" not found
  3108. :_mapdrv
  3109. set w_drv=
  3110. if not "%w_path%"=="" goto _nhwty1
  3111. if "%p_prot%"=="ipx" goto _nhwty
  3112. set w_path=server_or_ip\volume:path
  3113. goto _nhwty1
  3114. :_nhwty
  3115. set w_path=server\volume:path
  3116. :_nhwty1
  3117. set wcb1=%w_root%
  3118. set wcb2=%w_ins%
  3119. set wcb3=%w_next%
  3120. set wcb4=%w_savemap%
  3121. call w.bat box @%0:w_map
  3122. if "%wcb1%"=="0" set wcb1=
  3123. if "%wcb2%"=="0" set wcb2=
  3124. if "%wcb3%"=="0" set wcb3=
  3125. if "%wcb4%"=="0" set wcb4=
  3126. set w_root=%wcb1%
  3127. set w_ins=%wcb2%
  3128. set w_next=%wcb3%
  3129. set w_savemap=%wcb4%
  3130. if errorlevel 100 goto _config1
  3131. echo %w_drv%: >%tmp%\_nwlan.bak
  3132. lmod /S: set w_drv=[$1 L]<%tmp%\_nwlan.bak >%tmp%\_nwlan.bat
  3133. echo %ramdrv% >%tmp%\_nwlan.bak
  3134. lmod set ramdrv=[$1 L]<%tmp%\_nwlan.bak >>%tmp%\_nwlan.bat
  3135. call %tmp%\_nwlan.bat
  3136. if "%ramdrv%"=="%w_drv%:" goto _baddrv
  3137. if "%w_drv%"=="" if "%w_path%"=="" %nwdsk% : _error Map is missing Drive and Path
  3138. set w_mapset=
  3139. if "%w_drv%"=="" set w_next=1
  3140. if "%w_drv%"=="" goto _mpnext
  3141. set w_drv=%w_drv%:
  3142. if "%w_path%"=="" goto _mpdel
  3143. if "%w_root%"=="1" set w_mapset=root
  3144. for %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do if "%w_drv%"=="%%i:" goto _mpdrv
  3145. set w_drv=s%w_drv%
  3146. if "%w_ins%"=="1" set w_mapset=ins %w_mapset%
  3147. goto _mpstrt1
  3148. :_mpdrv
  3149. goto _mpstrt1
  3150. :_mpnext
  3151. if "%w_drv%"=="" if "%w_next%"=="1" set w_mapset=next %w_mapset%
  3152. goto _mpstrt1
  3153. :_mpdel
  3154. for %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do if "%w_drv%"=="%%i:" goto _mpdel2
  3155. %nwdsk% : _error Sorry, delete search mapping not implemented
  3156. :_mpdel2
  3157. set w_mapset=del %w_drv%
  3158. goto _mpstrt2
  3159. :_mpstrt1
  3160. echo NWLAN: Trying M(AP) '%w_mapset% "%w_drv%=%w_path%"'
  3161. call %ramdrv%\bin\m.bat %w_mapset% "%w_drv%=%w_path%"
  3162. goto _mpstrt0
  3163. :_mpstrt2
  3164. echo NWLAN: Trying M(AP) '%w_mapset%'
  3165. call %ramdrv%\bin\m.bat %w_mapset%
  3166. :_mpstrt0
  3167. if not "%w_savemap%"=="1" goto _norec
  3168. if "%w_path%"=="" goto _norec
  3169. set t_out=1
  3170. call drd.bat %srcdrv%
  3171. if errorlevel 1 set t_out=0
  3172. wbat box @%0:w_wprot #1,%t_out%
  3173. set t_out=
  3174. if errorlevel 2 goto _config1
  3175. echo NWLAN: Warning, mapping command will be saved regardless failure/success
  3176. echo NWLAN: Adding mapping to %srcdrv%\etc\autoexec.lan
  3177. if not exist %srcdrv%\Etc\*.* mkdir %srcdrv%\Etc
  3178. echo @echo Trying M(ap) '%w_mapset% "%w_drv%=%w_path%"'>>%ramdrv%\etc\autoexec.lan
  3179. echo @call %%ramdrv%%\bin\m.bat %w_mapset% "%w_drv%=%w_path%">>%ramdrv%\etc\autoexec.lan
  3180. echo @echo Trying M(ap) '%w_mapset% "%w_drv%=%w_path%"'>>%srcdrv%\etc\autoexec.lan
  3181. echo @call %%ramdrv%%\bin\m.bat %w_mapset% "%w_drv%=%w_path%">>%srcdrv%\etc\autoexec.lan
  3182. :_norec
  3183. goto _config1
  3184. :_baddrv
  3185. echo NWLAN: You cannot use drive %w_drv%:, it's in use by the ramdrive...
  3186. @rem pause
  3187. goto _mapdrv
  3188. :_relogon
  3189. call w.bat box @%0:w_relogon
  3190. if errorlevel 100 goto _config1
  3191. login
  3192. goto _end
  3193. :_chgpro
  3194. if exist %ramdrv%\etc\profile\*.pro goto _prosel
  3195. echo NWLAN: No profiles found...
  3196. echo You can save to a profile using the save button in the identification dialog
  3197. @rem pause
  3198. goto _config1
  3199. :_prosel
  3200. echo :_profile " Select profile to change " >%tmp%\_nwlan.tmp
  3201. if exist %tmp%\_nwlan2.tmp del %tmp%\_nwlan2.tmp >nul
  3202. if not exist %ramdrv%\etc\profile\*.pro goto _npro3
  3203. for %%i in (%ramdrv%\etc\profile\*.pro) do echo %%i >>%tmp%\_nwlan2.tmp
  3204. lmod /L* /B\. [$4] <%tmp%\_nwlan2.tmp >>%tmp%\_nwlan.tmp
  3205. del %tmp%\_nwlan2.tmp >nul
  3206. :_npro3
  3207. call w.bat list @%tmp%\_nwlan.tmp:_profile
  3208. if errorlevel 100 goto _config1
  3209. set w_profile=%wbat%
  3210. :_edtpro
  3211. call w.bat box @%0:w_chgpro
  3212. if errorlevel 4 goto _config1
  3213. if errorlevel 3 goto _delpro
  3214. if errorlevel 2 goto _netpro
  3215. if errorlevel 1 goto _editpro
  3216. goto _save
  3217. :_editpro
  3218. edit %srcdrv%\etc\profile\%w_profile%.pro
  3219. type %srcdrv%\etc\profile\%w_profile%.pro >%ramdrv%\etc\profile\%w_profile%.pro
  3220. goto _edtpro
  3221. :_netpro
  3222. edit %srcdrv%\etc\profile\%w_profile%.lan
  3223. type %srcdrv%\etc\profile\%w_profile%.lan >%ramdrv%\etc\profile\%w_profile%.lan
  3224. goto _edtpro
  3225. :_delpro
  3226. call w.bat box @%0:w_delpro
  3227. if errorlevel 2 goto _edtpro
  3228. set t_out=1
  3229. call drd.bat %srcdrv%
  3230. if errorlevel 1 set t_out=0
  3231. wbat box @%0:w_wprot #1,%t_out%
  3232. set t_out=
  3233. if errorlevel 2 goto _delpro
  3234. del %srcdrv%\etc\profile\%w_profile%.* >nul
  3235. del %ramdrv%\etc\profile\%w_profile%.* >nul
  3236. if not exist %srcdrv%\etc\profile\%w_profile%.* echo NWLAN: Profile "%w_profile%" deleted
  3237. :_delnot
  3238. if exist %srcdrv%\etc\profile\%w_profile%.* echo NWLAN: Could not delete profile "%w_profile%" (write-protection ?)
  3239. goto _config1
  3240. :_chgglo
  3241. call w.bat box @%0:w_chgglo
  3242. if errorlevel 3 goto _config1
  3243. if errorlevel 2 goto _netglo
  3244. if errorlevel 1 goto _setglo
  3245. goto _save
  3246. :_netglo
  3247. if exist %ramdrv%\etc\autoexec.lan goto _netglo1
  3248. set t_out=1
  3249. call drd.bat %srcdrv%
  3250. if errorlevel 1 set t_out=0
  3251. wbat box @%0:w_wprot #1,%t_out%
  3252. set t_out=
  3253. if errorlevel 2 goto _chgglo
  3254. echo NWLAN: autoexec.lan does not exist, creating a sample file...
  3255. if not exist %srcdrv%\Etc\*.* mkdir %srcdrv%\Etc
  3256. echo @rem Use this batch file for your global drive mappings or to start any >%srcdrv%\etc\autoexec.lan
  3257. echo @rem application you want. Call "m.bat" instead of "map.exe". >>%srcdrv%\etc\autoexec.lan
  3258. echo @rem Example: >>%srcdrv%\etc\autoexec.lan
  3259. echo @rem call %%ramdrv%%\bin\m.bat root "G:=SYS:" >>%srcdrv%\etc\autoexec.lan
  3260. echo @call %%ramdrv%%\bin\m.bat ins root "S16:=SYS:PUBLIC" >>%srcdrv%\etc\autoexec.lan
  3261. type %srcdrv%\etc\autoexec.lan >%ramdrv%\etc\autoexec.lan
  3262. :_netglo1
  3263. edit %srcdrv%\etc\autoexec.lan
  3264. type %srcdrv%\etc\autoexec.lan >%ramdrv%\etc\autoexec.lan
  3265. goto _chgglo
  3266. :_setglo
  3267. set wcb1=%g_fixpro%
  3268. set wcb2=%g_bypro%
  3269. set wcb3=%g_nocfg%
  3270. call w.bat box @%0:w_global #6
  3271. if "%wcb1%"=="0" set wcb1=
  3272. if "%wcb2%"=="0" set wcb2=
  3273. if "%wcb3%"=="0" set wcb3=
  3274. set g_fixpro=%wcb1%
  3275. set g_bypro=%wcb2%
  3276. set g_nocfg=%wcb3%
  3277. if errorlevel 2 goto _chgglo
  3278. set t_out=1
  3279. call drd.bat %srcdrv%
  3280. if errorlevel 1 set t_out=0
  3281. wbat box @%0:w_wprot #1,%t_out%
  3282. set t_out=
  3283. if errorlevel 2 goto _setglo
  3284. echo NWLAN: Saving global settings
  3285. set | tfind /f1,2 "G_">%tmp%\_nwlan.tmp
  3286. if not exist %srcdrv%\etc\*.* mkdir %srcdrv%\etc
  3287. if not exist %ramdrv%\etc\global.set goto _yglob
  3288. xgrep -syv "^[:s]*@*[:s]*s?e?t?[:s]*G_.+=" %ramdrv%\etc\global.set >>%tmp%\_nwlan.tmp
  3289. :_yglob
  3290. type %tmp%\_nwlan.tmp >%srcdrv%\etc\global.set
  3291. type %tmp%\_nwlan.tmp >%ramdrv%\etc\global.set
  3292. if not exist %srcdrv%\etc\global.set goto _gloerr1
  3293. echo NWLAN: Global settings saved to "%srcdrv%\etc\global.set"
  3294. goto _chgglo
  3295. :_gloerr1
  3296. echo NWLAN: Error saving global settings (write-protection ?)
  3297. @rem pause
  3298. goto _setglo
  3299. :w_delpro "Delete profile?" [x]
  3300.  
  3301.  About to delete profile "%w_profile%"
  3302.  Are you sure?
  3303.  
  3304.          [ Yes ]  [? No ]
  3305. ::
  3306. :w_chgpro "Profile settings" [x]
  3307.  
  3308.  Selected profile: %w_profile%
  3309.  
  3310.  [ Edit ]    Edit profile using a text editor (advanced)
  3311.  
  3312.  [ Batch ]   Edit the profile batch file using a text editor
  3313.  
  3314.  [ Delete ]  Delete this profile
  3315.  
  3316.  [? Back ]    Go back
  3317.  
  3318. ::
  3319. :w_chgglo "Global settings" [x]
  3320.  
  3321.  [ Settings ]      Change global settings
  3322.  
  3323.  [ autoexec.lan ]  Edit the global autoexec.lan batch file
  3324.  
  3325.  [? Back ]          Go back
  3326. ::
  3327. :w_global "Global settings" [x]
  3328.  
  3329.  Timeout [$ g_timeout,3] seconds.
  3330.  
  3331.  [!] Use a fixed profile: [$ g_profile,8]
  3332.      [!] No bypass
  3333.  
  3334.  [!] Skip "Goto config?" dialog
  3335.  
  3336.       [ Save ]  [? Cancel ]
  3337. ::
  3338. :w_param "Identification Settings" [x]
  3339.                                   (~press any key~: #? sec.)
  3340.  
  3341. Username     : [$ p_user,20,U   ]  ('*' exit before Login)
  3342.                                    ('!' exit after IP/IPX)
  3343.                                    ('$' exit after PktDrv)
  3344. Password     : [$ w_pass,20,P   ]
  3345.  
  3346. Pref. Tree   : [$ p_tree,20,U     ]   Edit Net.cfg   : [!]
  3347. Pref. Server : [$ p_server,20,U   ]   Edit Nic.bat   : [!]
  3348. Context      : [$ p_context,30    ]   No LoginScript : [!]
  3349. NetWare Prot : [$ p_ndsbind,20,U  ]   First Drive    : [$ p_drive,1,L]
  3350.  
  3351.      [ OK ]  [ Save ]  [ Help ]  [ Abort ]  [? Back ]
  3352. ::
  3353. :w_wtcp "TCP/IP Parameters" [x]
  3354.                           (~press any key~: #? sec.)
  3355.  
  3356. [!] Use Packet Driver (OdiPkt) with WATTCP
  3357.     (please fill in rest of form if checked)
  3358.  
  3359.     Host Name   : [$ p_mname,15]
  3360.                   (autogenerated if empty)
  3361.  
  3362.     [.] Dynamic IP (DHCP)
  3363.  
  3364.     [.] Static IP (fixed IP address)
  3365.     IP address  : [$ p_ip,15      ]
  3366.     Subnet Mask : [$ p_subnet,15  ]
  3367.     Gateway     : [$ p_gway,15    ]
  3368.     Domain      : [$ p_domain,30               ]
  3369.     Name Server : [$ p_dns1,15     ]
  3370.     Name Server : [$ p_dns2,15     ]
  3371.     Name Server : [$ p_dns3,15     ]
  3372.  
  3373.          [ OK ] [ Abort ] [? Back ]
  3374. ::
  3375. :w_srvloc " SLP configuration (SRVLOC) " [x]
  3376.                      (~press any key~: #? sec.)
  3377. Scope                : [$ p_scp1,30,U    ]
  3378. Scope                : [$ p_scp2,30,U    ]
  3379. Scope                : [$ p_scp3,30,U    ]
  3380. Directory Agent (DA) : [$ p_da1,30   ] (IP)
  3381. Directory Agent      : [$ p_da2,30   ]
  3382. Directory Agent      : [$ p_da3,30   ]
  3383. Static Scopes        : [!]
  3384. Static DAs           : [!]
  3385. DHCP                 : [!]
  3386. Active Discovery     : [!]
  3387. Broadcast Multicast  : [!]
  3388. Multicast Radius     : [$ p_radius,5]
  3389. MTU                  : [$ p_mtu,5]
  3390.   Consult your SLP-guru or try following:
  3391.   If entered "Scope" check "Static Scopes"
  3392.   If entered "DA" check "Static DAs"
  3393.   If entered "DA" uncheck "Active Discovery"
  3394.   If entered "Scope" or "DA" uncheck "DHCP"
  3395.  
  3396.          [ OK ] [ Abort ] [? Back ]
  3397. ::
  3398. :w_pwrite "Overwrite profile?" [x]
  3399.  
  3400.  A profile with the name "%g_profile%"
  3401.  already exists, overwrite?
  3402.  
  3403.         [ Yes ]  [? No ]
  3404. ::
  3405. :w_proname "Enter profile name" [x]
  3406.  
  3407.  Enter profile name: [$ g_profile,8]
  3408.  
  3409.       [ OK ] [? Cancel ]
  3410. ::
  3411. :w_savecfg "Save profile" [x]
  3412.  
  3413. Network adapter detection mode:
  3414.   [.] Prompt  [.] Auto  [.] Manual  [.] %p_nic%
  3415.   [$ p_nicmulti,1] Multiple nic default (0 to skip dialog)
  3416.  
  3417. Hide dialogs:
  3418. [!] Skip Client/Protocol dialog
  3419. [!] Skip Frame type dialog
  3420. [!] Skip TCP/IP parameter dialog
  3421. [!] Skip SLP SRVLOC dialog
  3422. [!] Skip Identification dialog
  3423.  
  3424. [!] Save password (in clear text, not secure!)
  3425.  
  3426. Dialog timeout [$ p_timeout,3] seconds.
  3427.                (0 means disabled)
  3428.  
  3429. Configuration will be saved to:
  3430. %srcdrv%\etc\profile\%g_profile%
  3431.  
  3432.                [ Ok ]  [? Cancel ]
  3433. ::
  3434. :w_bypro "Profile OK?" [x]
  3435.         (~press any key~: #? sec.)
  3436.  
  3437.   About to process
  3438.   profile "%g_profile%"...
  3439.  
  3440.    [ Ok ] [? Cancel ] [ Abort ]
  3441. ::
  3442. :w_cfg "Goto config?" [x]
  3443.        (~press any key~: #? sec.)
  3444.  
  3445.   Running Network Client ...
  3446.  
  3447.   [ Ok ] [ Config ] [? Abort ]
  3448. ::
  3449. :w_wprot "Disable write protection..." [x]
  3450.  
  3451.   If the disk in drive %srcdrv% is write
  3452.   protected, please disable the write
  3453.   protection now in order to save settings.
  3454.   You can re-enable write protection after
  3455.   saving.
  3456.  
  3457.             [ Ok ]  [? Cancel ]
  3458. ::
  3459. :w_ramdrv "Where to store driver index files?" [x]
  3460.  
  3461.   [ Ramdisk ]   Copy to ramdisk (%ramdrv%)
  3462.  
  3463.   [ Drive &A: ]  If booted from Floppy choose to A:
  3464.  
  3465.   [ Drive &B: ]  If booted from CD-Rom choose to B:
  3466.                 Then create isoimage again with new
  3467.                 _nwlan.pci, _nwlan.txt and _nwlan.crc
  3468.  
  3469.   [? Cancel ]    Don't copy
  3470. ::
  3471. :w_relogon "Logon as a different user" [x]
  3472.  
  3473. Logon as : [$ p_user,20,U                  ]
  3474. Password : [$ w_pass,20,P  ]
  3475.  
  3476.      [ Ok ]  [? Cancel ]
  3477. ::
  3478. :w_map " (Search) Map Drive " [x]
  3479.  
  3480. Drive : [$ w_drv,2,U ]: (no additional ':' needed)
  3481.         (digits for Search- char for Drive mapping)
  3482. Path  : [$ w_path,30,               ]
  3483.         (leave Path blank to delete Drive mapping)
  3484.  
  3485. Options
  3486. [!] Root Drive/Search mapping
  3487. [!] Insert Search mapping
  3488. [!] Next Drive mapping (leave Drive blank)
  3489.  
  3490. [!] Reconnect at logon
  3491.     (not applicable when deleting Drive mapping)
  3492.  
  3493.               [ Ok ]  [? Cancel ]
  3494. ::
  3495. :w_help "Help"
  3496.  
  3497. The help info has been removed
  3498. from the batchfile.
  3499.  
  3500. Please visit
  3501.  
  3502. http://www.veder.com/nwdsk/
  3503. for NwDsk documentation
  3504.  
  3505. and
  3506.  
  3507. http://www.nu2.nu/bootdisk/network/
  3508. for more ModBoot information.
  3509.  
  3510.              [ Ok ]
  3511. ::
  3512. :w_pause "Timeout"
  3513.  
  3514.       (#? sec.)
  3515.  
  3516. [ Ok ]  [? Cancel ]
  3517. ::
  3518. :_usage
  3519. echo Parameters:
  3520. echo -c    Config mode
  3521. echo -h    This help info
  3522. echo.
  3523. echo _end
  3524.  
  3525. :_envtest
  3526. shift
  3527. shift
  3528. if not "%8"=="" goto _el8
  3529. if not "%7"=="" goto _el7
  3530. if not "%6"=="" goto _el6
  3531. if not "%5"=="" goto _el5
  3532. if not "%4"=="" goto _el4
  3533. if not "%3"=="" goto _el3
  3534. if not "%2"=="" goto _el2
  3535. if not "%1"=="" goto _el1
  3536. el! 0
  3537. goto _eof
  3538. :_el8
  3539. el! 8
  3540. goto _eof
  3541. :_el7
  3542. el! 7
  3543. goto _eof
  3544. :_el6
  3545. el! 6
  3546. goto _eof
  3547. :_el5
  3548. el! 5
  3549. goto _eof
  3550. :_el4
  3551. el! 4
  3552. goto _eof
  3553. :_el3
  3554. el! 3
  3555. goto _eof
  3556. :_el2
  3557. el! 2
  3558. goto _eof
  3559. :_el1
  3560. el! 1
  3561. goto _eof
  3562.  
  3563. :_error
  3564. shift
  3565. shift
  3566. echo.
  3567. echo NWLAN: (error%errorlevel%) %1 %2 %3 %4 %5 %6 %7 %8
  3568. echo.
  3569. @pause
  3570. if not exist %ramdrv%\bin\unnwlan.bat goto _end
  3571. if "%p_unload%"=="0" goto _end
  3572. echo NWLAN: Trying to unload NetWare Client components
  3573. type %ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.unl
  3574. echo @if "%%debug%%"=="" echo off >%ramdrv%\bin\unnwlan.bat
  3575. echo echo UNNWLAN: Unloading incomplete NetWare Client >>%ramdrv%\bin\unnwlan.bat
  3576. type %tmp%\_nwlan.unl >>%ramdrv%\bin\unnwlan.bat
  3577. type %ramdrv%\bin\unnwlan.bat >%tmp%\_nwlan.bat
  3578. @pause
  3579. call %tmp%\_nwlan.bat
  3580. goto _end
  3581.  
  3582. :_end
  3583. cd %ramdrv%\
  3584. set >%tmp%\_nwlan.bak
  3585. tfind /f1,2 "P_" <%tmp%\_nwlan.bak >%tmp%\_nwlan.tmp
  3586. tfind /f1,2 "W_" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  3587. tfind /f1,2 "G_" <%tmp%\_nwlan.bak >>%tmp%\_nwlan.tmp
  3588. lmod /L* /B= set [$1]=<%tmp%\_nwlan.tmp >%tmp%\_nwlan.bat
  3589. call %tmp%\_nwlan.bat
  3590. for %%i in (%tmp%\_nwlan.* %tmp%\_nwlan16.* %tmp%\_nwlan32.*) do if exist %%i del %%i >nul
  3591. for %%i in (0 1 2 3 4) do set pci%%i=
  3592. for %%i in (0 1 2 3 4 5 6 7 8 9) do set wcb%%i=
  3593. for %%i in (_ldh _nwlan wrb wbat nbi0 ?) do set %%i=
  3594. set ?=
  3595. if exist %tmp%\_nwlanz.bat goto _nwlnz
  3596. if exist %tmp%\_nwlanx.bat %tmp%\_nwlanx.bat
  3597. goto _eof
  3598. :_nwlnz
  3599. if exist %tmp%\_nwlanx.bat call %tmp%\_nwlanx.bat
  3600. if exist %tmp%\_nwlanx.bat del %tmp%\_nwlanx.bat >nul
  3601. if exist %tmp%\_nwlanz.bat %tmp%\_nwlanz.bat
  3602. :_eof
  3603. :: Nwlan End ::
  3604.